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DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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DD DD 88888888 GG LL EEEEEEE VW VV EEEEEEEE LL 33 
dD DD 88888888 GG LL EEEEEEEE Vu VV EEEEEEEE LL 
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LL I] $$ 
LL I] 3S 
LL I] SS 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL 1] $$ 
LL I] $$ 
LL II $$ 
LL I] SS 
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; WRITTEN BY 


COPYRIGHT (¢) 2 ars, 1980, 1982, 1984 BY 
DIGITAL EQUI PHE CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED . 


pale SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Inch N ACCORDANCE WITH THE {ERRS F reve” LICENSE AND WITH THE 
Opies ION OF THE ABOV oe penete NOTICE. THIS SOFTWARE OR ANY OTHER 

S_ THEREOF a NOT BE PROVIDED OR OTHERW ISE MADE AVAILABLE TO ANY 


OTH Be PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 

THE a te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


John Francis August, 1982 


i MODULE FUNCTION 


module contains the DEBUG kernel code for performing the 
EVALUATE. EXAMINE and DEPOSIT commands. 


REQUIRE *SRC$:DBGPROLOG.REQ'; 
LIBRARY ‘LIB$:DBGGEN.L32'; 
FORWARD ROUTI 


NE 
DBGSCOLLECT: NOVALUE, 
DEPOSIT HANDLER, 
DBGSDEPOSIT: NOVALUE 
DBGSEVALUATE: NOVALUE, 
DBGSEKARINE NOVALUE, 
DBGSNEXT Loc, 
DBGSPREVLOC 
MODIFY PRIMARY, 
PRIMARY_OR 
CHECK _TEXT DESCRIPTOR, 
FIX_UP_LENGTH 
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3 EXTER 
4 DBG$G CURRENT _PRIMARY ' Pointer to the sb pa being processed 
5 pecs REG VA VALUES? VEC ee LONG], ' Vector ol . : ues 


user register values in the 
! Override type for ZCURLOC 

: oes lgnnens operator gonen 

: Identity operator token 

' Default type from ‘’SET TYPE 

! Length of default data-type 
DBGSGL-SIGN_FLAG ! Print ‘'+' before signed yoriable 


hia OUTINE 
VILD hl ~SUBNODE: NOVALUE, 
DBGSDATA CENG 


$D0 
DBGSEVAL LANG. rcaaon 
DBGSFLUSABUF : °N LUE, 
DBGSGET ne’ 
DBGSIS rr ENTRY, 
DBGSINS DECODE 
DBG -VAL 3 
DBGSNGET PAGES, 
DBGSPC -16 LINE LOOKUP, 
DBGSPC~TO-SYMID, 
DBGSPRIM T0_VAL. 


T 
peGSéL fur OF VASDES 


peesel “bre TYP. 
DBGSGW Bets vo ono, 


5 ad 
Sazas 
“Mm 
— 
= 


! Add new primary sub-node 
: Get iength of a coroner 
! Perform ‘type mapping’ 
' Evaluate operator expressions 
! Initialize a new print Line 
' Allocate temporary memor 
! Check for CALL entry-mask address 
! Get length of instruction 
' Construct value , foeerrorer 
‘ sonerress erage. 
' Get Line & stenent unter 
' Look up address in 
! Obtain value of } A, 
! Formats an output Line. 
Print array or record 
! Print <p,s,e> information 
i Print name of data-item 
Print value in a given radix 
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' 
' 
' 
i 
' 
' 
' 
' 
' 
1 
t 
' 
i 
1 
i] 
' 
i 
VALUE: NOVALU 
ars EMPME Save temporary memory state 

t 

‘ 

1 

1 

‘ 

i] 

' 

' 

‘ 

‘ 

' 

1 

' 

t 

4 

1 

' 

' 


DBGSPRINT VALUE JAS INT EEeR: NOVALUE,! Print absolute address 
beGsr Ph ag oD pNOVALUE . ' Restore 
PUCINE: ALUE ' Outputs the output buffer. 
. vave 


° 
' Save backslash 
! Set page protections 
' Type source text 
! Translate aserens to reg descr 
! Obtain reg name from reg descr 
! Store context register values 
' Set up context correctly 
! Get KIND of data item 


DBGSSAVE~ VAL NOVALUE , 


PROT 
DBGSSRC~ TYBE-P C_SOURCE: NOVALUE, 
DBG$STA “ADDRESS” TO_REGDESCR, 
DBGSSTA-REGIST 

DBGSSTA~ ~SETREGISTERS: ANOVALUE. 
DBGSSTA-SETCONTEXT: NOVALUE, 
DBG$S D: NO 
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1 
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1 
1 
1 
1 
1 DBGSPRINT_F I 
1 eer fel IDENTIFI 
1 RINT 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
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GSSTA-SYMKIN VALU ‘ 
TA_SYMNAME VA ' Get NAME of data item 
DBGSSTA_SYMSIZE: NOVALUE, ' Get SIZE of data json 
DBGSSTA_ pig B NOVALUE, ' Get TYPE of data ite 
BGSSTA_TYP_RECORD: NOVALUE, !' Get symbol table he aR 
STA_VARTANT SELECT. ' Get entry from a set 
1 DBGSTYPEID_FOR_ATOMIC ' Make dummy RST ent 
1 GSUPDA Te SWATCHPOINTS NOVALUE, Update watched values after DEPOSIT 
! SI Signal an error 
: LITERAL 
: : Verb codes for the EVALUATE command. 
1 EVALUATE » %, ' EVALUATE verb code 
1 EVALUATE _ADDR = 2, ! EVALUATE/ADDRESS verb code 
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Sep-1984 


1 
| 
GLOBAL ROUTINE DBGSCHANGE _DTYPE(PRM_DESC, NEW_TYPE, NEW SIZE) = | 
FUNCTION | 
: ee me em mm me a me om ee ee 
INPUTS | 
: em Ge TP ee ee ee SE me me em Om ee em me ee a oe om ew OD 
i OUTPUTS 
SSP Ce ete ee re een Scere ae | 
; 
BEGIN 
P 
PRM_DESC: REF DBGSPRIMARY; ! Pointer to Primary Descriptor 
LOCAL 
ADDR, ' The current instruction address 
SIZE, ! Size of V-Value Descriptor header 
VAL_DESC: REF DBGSVALDESC; ! Pointer to Value Descriptor 


Determine what kind of descriptor we have. 
SELECTONE .PRM_DESCCDBG$B_DHDR_TYPE] OF 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
§ Handle Primary Descriptors. 
: COBG$K_PRIMARY_DESC] 


Cj: 
DBGSPRIM_TO_VAL(.PRM_DESC ,DBG$K_V_VALUE_DESC,VAL_DESC); 


CDBG$K_V_VALUE_DESC): 
SIZE = .PRM_DESCCDBG$W_DHDR_LENGTH); 
VAL_DESC = BDBGSGET_TEMPMEM(T.SIZE + (XUPVAL = 1))/%UPVAL); 
CHSROVE(. S1ZE ~PRM~DESC,.VAL DESC); 
IF .PRM_DESCCOBGSL-DHDR.SYMID0) NEQ 0 
DBGSSTA_SETCONTEXT(.PRM_DESCCDBGS$L_DHDR_SYMIDOJ); 


END; | | 
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: Handle Volatile Value Descriptors. 
| 
| 
| 
| 
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So 


: a other descriptor type is invalid so we signal an internal 
DEBUG error. 


COTHERWISE): | 
SIGNAL (DBG$_ILLTYPE); | 
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TES; 
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1 
1 DEBUG. SRC JDBGLEVEL 783 31 


If the type is DBGSK_NOTYPE, meaning type instruction, we return now. 
iF .NEW_TYPE EQL DBGSK_NOTYPE THEN RETURN .VAL_DESC; 


1 If we get here then we are overriding the type information. In this 
: case, set the FCODE to ‘‘descriptor’’. Also set the ‘‘override’’ flag. 


VAL “Dest tbacsy— DHDR_FCODE] = RSTSK TYPE -DESCR; 
VAL "DESC 
SELE 9 »NEWLT 


DBGS$V_ = pHDR =RYERRIDE) = TROE; 


! Handle the /ASCIZ, /ASCIC, and /ASCIW qualifiers. These refer to the 
zero-terminated and counted ASCII string types. 


CDSCSK_DTYPE_AZ, 
DSCSK-DTYPE-AC 
DSCSK eprvPEcvti: 
LF ('.VAL_DESCCDBGSB_VALUE, CLASS] EQL DSCS$K_CLASS_UBS) 


SIGNAL (DBG$_UNAL IGNED) ; 


VAL _DESCCDOBGSB_ er =CLASS) = DSCSK_CLASS_VS; 
We pe St DBG$B_VALUE-DTYPE] = .NEW_TYPE; 


DBGSW"VALUE"LENGTH] = 
ay FIX_UP_LENGTH(VAL _DESCCDBGS$A_VALUE_VMSDESC)); 
Handle the /ASCID qualifier (ASCII string via its descriptor). 
CDOBGSK BTYPE AD: 
dl NOT CHECK_TEXT_DESCRIPTOR(.VAL_DESC) 
SIGNAL (DBG$_DESCNOTSET); 
END; 


: Handle the plain ASCII text string data type (the /ASCII qualifier). 
ener puvee.t2: 
ai NEQ 0 
VAL _DESCCDBG$W_VALUE_LENGTH] = .NEW_SIZE 
ELSE 


VAL _DESCCDBG$W_ tg LENGTH] = DBGSDATA_L 
L_BESCCOBGSA_VALUE AVASDES y/XBPUNIT; 


7 

GLEVEL3 1b-5e -1984 01:30: AX-11 Bliss-32 V4.0-74 Page 
Mite 12-88-1382 93:39:68 DEBUG. SRC IDBGLEVEL 3. $3.1 9 03) 
> 26 73 VAL _DESCEDBGSB_VALUE CLASS} = DSC$K_CLASS_Z; 
: 26 7% VAL ~DESCLDBGSB-VALUE-DTYPE] = DSCSK-DTYPE-T;: 
: 246 75 END; 
a f 
5 of 4: Handle the /INSTRUCTION qualifier. 
> 249 80 {DSC$k_DTYPE_21): 
; 20 81 BEGIN 
: 251 é VAL_DESCCDBG$B_VALUE_CLASS] = DSC$K_CLASS_2; 
3 26 0 ADDR = .VAL_DESCCDBGSL_VALUE_POINTER]; 
; 2 ‘ 4 IF DBGSIS_IT_ENTRY(. ADDR) 
5 4 5 THEN 
: 255 03 6 4 BEGIN 
: 256 0387 4 VAL _DESCEDBGSB_VALUE_DTYPE = DSCSK_DTYPE_ZEM; 
: 937 0388 4 VAL ~DESCLDBG$W-VALUE-LENGTH) = 2; 
: 258 0389 4 END 
: 259 0390 4 
: $e b392 a 
; g6¢ $398 4 VAL_DESCCDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_ZI; 
: 36 0394 4 VAL ~DESCLDBG$W-VALUE LENGTH] = 
> 264 0395 4 DBGSINS_DECODE(.ADDR, FALSE, FALSE) = .ADDR; 
> 265 0396 ; END; 
: 266 0397 
3; 267 344 END; 
iB fe 
3 370 0401 ¢ ! Handle the /PACKED qualifier. 
; 37 $208 é CDSC$K_DTYPE_P): 
: 27 0404 BEGIN 
: 27% 0405 3 VAL_DESCCDBG$B_VALUE_CLASS] = DSC$K_CLASS_2; 
> 275 04 VAL"DESCCDBGSB-VALUE DTYPE] = .NEW_TYPE; 
; $f8 oe HF gNeW_SIZE NEQ %x*OOOOFFFF* 
: 378 0409 VAL_DESCCDBGS$W_VALUE_LENGTH) = .NEW_SIZE 
: 280 0411 3 ELSE 
; 81 412 4 BEGIN 
; BS 0414 4 FIELD 
; 84 0415 4 PACKED FIELDS = 
; 286 B41? 4 SIGN_NIBBLE = (0,0,4,0) 
: 288 0419 4 BIND ; 
: 289 0420 4 PACKED_DATA = .VAL DESCEDBGSL VALUE_POINTER]: 
3 3 1 ? BLOCKVECTOR(C16,1,BYTE) FIELD(PACKED_FIELDS); 
; % 04 5 4 INCR I FROM 0 TO 15 DO 
: 29 426 BEGIN 
+ 29% 425 IF .PACKED_DATAL.1, SIGN_NIBBLE) GTR 9 
3 95 4 § THEN 
: % 427 6 BEGIN 
: 29 4 8 6 VAL_DESCCDBG$W_VALUE_LENGTH] = (.1#2) + 1; 
> 298 0429 6 EXITLOOP; 


; 299 430 END; 

; 500 431 2 

: oi 4 ; 4 END; 

3 § 4 

3 0 434 END; 

. v0 

4 7 

: oF ¢ ! Hand her d 

3 . andle any other data type. 

309 440 i . és 

i 310 44) COTHERWISE): 

: 31 Ang BEGIN 

: ig 044 VAL _DESC DBGSB_ VALUE CLASS] = DSCSK_CLASS_2; 
> 31 0444 DESCCDBGSB-VALUE_DTYPE] = E; 
: 314 0445 VAL “DESCCDBGSW— VALUE “LENGTH] = .NEWTSIZE: 
: 315 044 END: 

: 1 044 

: 31 0448 TES; 

: 318 0449 

: 319 0450 RETURN .VAL_DESC; 

; 320 0451 «1 END; 
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DBGSOWN,NOEXE, PIC,2 
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DBGSGL_CURRENT_PRIMARY 
DBGSREG VA LUES; DBG$GL_CURLOC_VMSDESC 
pBeset _BEPOS TOK EN 

DBGSGL— IDENTITY} OKEN 

DBGS$GL ~DFETTYP A ~DBCSGu. DFLTLENG 
DBGS$GL~ S1GN FLA 
DBG$BU D PRIMARY. SUBNODE 

DBGSDATA OrEN 

0 MAPPING DBGSEVAL_LANG_OPERATOR 
bac ttt LOSHBUF 6 5BGSGET_TEMPMEM 


DBGSPC_T 10, svH GES 


SPRINT, a AGGREGATE 
DBCSPRINT FIELD _R 
DBGSPRINT_ IDENTIFIER 

RINT_VA 


DBGSP 
DBGSPRINT~ VALUE AS_INTEGER 
DBGSPUSH_TEM wen 
DBGSPOP_TEMPM 

DBGSNEUL INE 7 DBGSSA VE_LOC 
paces AVE_VAL, DBGSSET-PAGE_PROT 
DBCeeRC TYPE _PC_SOURCE 
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$ep-1984 01:3 AX-11 Bliss-32 V4. 
1-0-1984 9}: 19: 63 DEBUG. SRC cIDBGLEVEL "833, 31 

«EXTRN DBGSSTA_ADDRESS_TO_REGDESCR 
sEXTRN DBG STA ReGtotee NAME 
«EXTRN DBGSSTA_SETREGISTERS 
«EXTRN Boose TAA ee CONTENT 
«EXTRN DBGSSTA_SYMKIND 
~EXTRN DBGSSTA_SYMNAME 
«EXTRN DBGSSTA_SYMSIZE 
«EXTRN DBGSSTA_SYMTYPE 
«EXTRN DBGSSTA_TYP_RECORD 
sEXTRN DBGSSTA VARTANT SELECT 
-EXTRN DBGSTYPEID_FOR_ATOMIC 
-EXTRN DBGSUPDATE_WATCHPOINTS 
-EXTRN LIBSSIGNAL 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


00FC 00000 ENTRY DGSCHANGE_DTYPE, Save R2,R3,R4,R5,R6,R7 
57 000000006 a2 9—€ 0000 HOVAB LIBSSIGNAL, R? 
SE 4 C2 000 SUBL 
56 04 DO 0000 MOVL PRM_DESC 
79 «BF 02 NG 91 0001 CMPB pom pian 
11 12 0001 BNEQ 
5E 0D 0001 PUSHL 
7E 83 er 9A 00019 MOV ZBL 7131, -(SP) 
: DD 0001D PUSHL 
000000006 00 FB OOO1F CALLS #3, DBGSPRIM_TO_VAL 
B 11 00026 BRB 
83 BF 02 A6 91 00028 1$: CMPB (R6), #131 
2B 12 00 D BNEQ 
‘ 6 3¢ 002F MOVZWL (R6) SIZE 
03 =A E 0032 MOVAB 3(R25 
7E 0 04 ¢? 000 DIVL a, ab.” SP) 
000000006 00 1 FB OO03A CALLS rab AK TEMPMEM 
6E 0 00 0041 MOVL A; VAL_DES 
00 BE 66 52 0044 MOVC3 SIE, tne) @VAL_DESC 
0c AB D5 00049 STL =: 12 (RO) 
15 13 0004C EQL 
0c Abd DD 0004E PUSHL  12(R6) 
000000006 00 1 FB 0051 CALLS #1, DBGSSTA_SETCONTEXT 
9 11 00058 BRB 
000287D8 8F DD 0005A 28 PUSHL #165848 
7 1 FB 6 CALLS #1, LIBSSIGNAL 
08 AC 00 00063 3s: MOVL NEW TYPE. R4 
54 D4 6 CMPL RG, "#12 
04 2 : BNEO 
6 p MOVL  VAL_DESC, RO 
4 0007 RET 
E 74 4$: MOVL VAL DESC R2 
77 MOVE § 
80 8F B1SB2 Fi58° 4(R2) 
4 01 CMPL RG, 437 
¢ 19 BLSS 
4 p} 0 CMPL «6s R4, #39 
7 14 BGTR 
14 Ag 3 A MOVAB (R2), 
03 A CMPB (n. 
09 12 000 NEQ 


| f 7 
16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-74 Pa 9 
it 3 a 18-808- 1382 93:79:88 DEBUG. SRCJDBGLEVEL3.B32;1 - (3) | 
F 9% SHL #167176 7 0341 
67 ehreneines 1 pe 9A Chee Tl L1BS$1GNAL : | 
03 a3 $9 9D 5$: MOVE #11, 3(R3) + 0343. 
. $ BD boons PUSHIL — : O86 
0000v CF 1 fF 7 CALLS #1, FIX _UP_LENGTH ; | 
63 0 66 AC MOVW RO. (R3T : | 
¢ AF BRB 12$ : 0328 
38 54 D1 00081 6$ CMPL RG, #56 : 03 
es 038 
0000v cf } FB eB CALLS i. CHECK. TEXT DESCRIPTOR : 
00028F50 BF bd o00C0 PUSHL #167760 ; 0356 
67 1 Fe C6 CALLS #1, LIBSSIGNAL ; 
2 1 ¢ BRB ; 0328 | 
OE p} cB 7$ cMPL Ra #14 ; 0 
53 14 43 9 0006 MOVAB 20(R2), R3 + 0367 
a ee ee j 
63 0c AC B80 00009 MOVW  NEW_SIZE, (R3) ; 0367) 
19 11 00000 BRB 9$ ; 
DD OOODF 8s: PUSHL R3 > 0371) 
* 000000006 00 i Fe OE} CALL a. DBGSDATA_LENGTH 
é3 1 BO O00EC MOVW «= R17. (RS) : 
02 =A OF BO OOOEF 9S MOVW #14, 2¢R3) 1 0374. 
11 OOOF BRB 8$ : 0328 
16 34 D1 000F5 10S: CMPL R4, #22 : 0380 
5 12 000F BNEG 13$ : 
53 14 A2 9E OOOFA MOVAB 20(R2), R3 + 0382 
03 A’ 94 OOOFE CLRB (R3) : 
55 18 A2 00 90191 VL 4(R2), ADDR ; 0385 
55 DD 00105 PUSHL : 0 
000000006 00 gi FB 9107 CALLS #1, DBGSIS_IT_ENTRY ; 
02 =A 3 3 0111 MOVB 2%, 2(R3) > 0387 
at a hae 
1 11A 11$:  MOVB #22, 2(R3) : 039 
a! Pee ee fod 
000000006 99 3 FB 001 CALL § a3 DBGSINS BECODE ; 
65 ns 1 UBW br, RO, (R3) : 
8 1 160 198: BRB s 0336 | 
15 4 D1 lof 138: CMPL 4, #21 : | 
16 A2 ‘ { SOY BM R4, 22(R2) : 
OOOOFFFF  8F oc A of 1 CMPL NEW_SIZE, #65535 ; feo? 
1use se gs | 
09 18 8240 04 t 144 14$: CHP ZV #9, #4, @24(R2)C1), #9 ; 0685 
w a ae ae 
ap F 11 133 BRB io ie > 0427 


IESteciats RRS ESULANUSRENEE TS, ae 

&8 50 F ; } 158: poguee #13. I, 148 é 33 | 
tS « EY Li ME BEY it? g 

; Routine Size: 363 bytes, Routine Base: DBGSCODE + 0000 | 


_ 


ieseoctage O4:40:36 YASH Spaccevei$.639;1 
GLOBAL ROUTINE DBGSCOLLECT(PRM_DESC) : NOVALUE = 


: 1 

3 1! 

3 i FUNCTION 

3 1 | INPUTS 

: $ ji 

; 60 i outputs 

; $4 1} 

; BEGIN 

: 65 

3 ¢9 PRM_DESC: REF DBGSPRIMARY; ! Pointer to Primary Descriptor 
; 339 e3 BUILTIN 

; ° 4 REMQUE; ! Remove queue entry from List 
; é 2 CAL 

; 7 10000006 I CCeeecceccccee ecececccoccccccccccccccce 
; 4 74 

; 5 75 

; $ ? 

3 8 7 i 

: 349 ? ir. (.PRM_DESC NEQA 0) THEN 

; 350 80 (PRA DESCCDBG$B_DHDR_TYPE] EQL DBGSK_PRIMARY_DESC) THEN 

3; $51 1 PRA RM~DESCCDBGSV-DHDR-AGGR) THEN 

; $ 5 LOCAL SUB_NODE : REF DBGSPRIM_NODE; 

3 5 5 SUB_NODE = .PRM_DESCCDBGSL_PRIM_BLINK); 

3 ; 4 IF ( .SUB_NODE CDBGSB_PNODE F CODE] EQL RSTSK_TYPE_ARRAY) 

; $59 4 ( . SUB_NODE LDBGSB_PNARR DTYPE] EQL DSC$K_DTYPE_T) 

: 361 91 4 (. SUB_NODECDBGSW_PNARR_LENGTH) EQL 1) 

: 388 38 2 THEN cin 

; 9% 4% BIND S_VECTOR = SUB _NODECDBGSA PNARR_SVECTOR] : DBGSPRIM_NODE_SUBS; 
: 365 95 4 LOCAL BIMS,SIZE foes TYPEID,SYAID 

; 9% 4 DIMS = .SUB shobE $8 PHARAS pinch NT) - 1; 

; 97 & IF =s-VECTORE DIN DB BGSL_P PNSOB_ STRIDE} NEQ 1 THEN RETURN; 

; 98 4 IF .S"VECTOR DMS DBGSL-PNSUB-TYPEID NEQ 0 THEN RETURN; 

: 300 4 BASE = + $.VECTORE .DIMS .DBGSL_PNSUB_LBOUND); 

; 1 4 SIZE = (.5 VECTOR -DIMS DB $L“PNSUB"UBOUND) - .BASE) + 1; 

; 5 : 4 PRM_DESC(DBG$W_PRIM_OFFSET) =".BASE;: 

: 503 4 PRM~DESC(DBGSW-PRIM-LENGTH) = .SIZE;: 

; 3 4 PRM~DESCLDBG$V~DHDR~SUBREF) = TRUE: 

: 5 4 PRM DESC DBGSY DHDR-TMPREF) = TRUE; 

; 506 4 TYPEID = DBGSTYPEID-FOR_ATOMIC(DSCS$K_DTYPE_T,.SIZE*%BPUNIT FALSE) 
3 3 4 IF DAMS GTR O 


iegeect9ue OUH0:98  YAEGLL Shyszewsc GZS, Pe 


; BEGIN 
; SUB NODE FDBGSB_PNARR_DIMCNT = .DIMS; 
; SUB-NODECDBGSLPNARR_CELLTYPE] = .TYPEID; 
; j 1 ELSE 
; 1 BEGIN 
: 385 15 SYMID = .SUB _NODECDBGSL_PNODE_SYMID); 
; 1 REMOVE ( SUB NODE , SUB_NODE); 
; 1 GSBUILD_PRIMARY_SUBNODE (.PRM_DESC,RSTSK_DATA, .SYMID 
; 1 RSTSK_TYPE_ATOMIC,.fYPEID, 0); 
: 389 1 PRM_DESCCDBGSV_DHDR_AGGR) = FALSE; 
; SUB “NODE = .PRA_DESCCDBGSL_PRIM_BLINKI; 
; 3 3 $uB=NOD CDBG$L_PNODE_RELOC] = --BASE; 
3 38 5 § END; 
; 3946 5246 END; 
; 5395 525 END; ! End of dbg$collect 
001¢ 0 .ENTRY DBGSCOLLECT, Save R2,R3,R4 ; 0452 
51 04 ac 00 0000 MOVL PRM_DESC, Ri : 047 
07 1 90006 BNEO : 
94 000 RE : 
79 ~—s«aBF 02 Al 91 00009 1$: CMPB grt). #121 : 0480 | 
34 iH D000E BNEQ $ ; | 
01 04 Al FS 90010 BLBS 4(R1), 28 + 0481 
V oe 
52 18 Al 00 00015 28 MOVL 4(R1), SUB_NODE + 0485 
01 09 A 1 19 cMPB (SUB_NODE)> #1 + 0487 
' 
OE A a of 0001F CMB 6(SUB_NODE), #14 F 0489 | 
' . 
01 1¢ Ag ef MPW 8(SUB_NODE), #1 ; 0491 | 
19 12 ¢ NEQ : : 
53 18 ag 9A 00028 MOVZBL 27(SUB_NODE), DIMS : 0496 | 
53 D7 000eF DECL.  DIMS ; 
50 53 14 g 00031 MULL3. #20, DIMS RO + 0497 | 
2¢ A240 9F 3 PUSHAB 44($uB_NODE) CROJ : 
01 9E D1 CMPL (SP)+> #1 : 
6D 12 C BNEO § ; 
38 A240 9F SHAB 56(SUB_NODE)CROJ : 0498 
9 03 TSTL 9(sP) : 
65 1 3$: EG ; : | 
30 A240 9F 6 PUSHAB 48(SUB_NODE) CRO] + 0500 | 
54 9 po A VL a{SP)s- BASE ; 
34 A260 9F PUSHAB 52(SUB NODE) CRO : 0501 
50 9E 4 ¢3 SUBL3 BASE, S(SP)+, R ; 
0 D INCL SIZE F 
10 Al 4 8 VW BASE, 16¢R1) : 050 
12 A 0 8 B vw OS He 18(R1) : 050 
04 Al 0102 BF A F Bisw2 @ 4(R1) : 050 
, p4 5 CLRL 0s = (SPS : 0506 
7E 50 2 8 0006 ASHL #3, SIZE, -(SP) ; 
E DD 00068 PUSHL #14 ; 


DBGLEYELS iboseontgee 01:90:26 yaucsy OL ige=s2. v4 te7ez 


FB 0006 ALLS #3, DBGSTYPEID_FOR_ATOMIC 
: * Fe DIMS aoe 
18 OA 00 MOVB DIMS, 27(SUB_NODE) 
a * Mov. —TYPE[D, 36(S0B_NODE) 
1 10 A2 00 00081 4s: MOVE 16(SUB_NODED , SYMID 
3) $ OF 000 RENGUE (SUBLNODE). SUB. NODE 
D4 000 CLRL SP 
DD 00C PUSHL TYPED 
DD 0008C PUSHL 
DD PUSHL  SYMID 
+4 N PUSHL as 
53 04 ar MOVL  PRM_DESC, R3 
DD PUSHL R3 ~ 
000000006 0 6 £8 98 CALLS #6, DBGSBUILD PRIMARY, SUBNODE 
5 18 RS DO 000 MOVL z4in3), > NODE 
14 54 cE MNEGL » 20(SUB_NODE) 
DO0AB 5S RET 


3; Routine Size: 172 bytes, Routine Base: DBGSCODE + 0168 
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; 338 $ } ROUTINE DEPOSIT HANDLER(SIGNAL_ARGS: REF BLOCKC,BYTEJ) = 

; 1 | FUNCTION 

; 4 1! This routine is the handler for errors that are signalled during 
; 4 1! the processing of a DEPOSIT command. A handler is necessary so 
; ¢ ¢ : ; that we can restore page protections that we may have changed. 
: 6 § 1 i INPUTS 

; 405 1! 

sé 5 1i 

3; § 1 ! OUTPUTS 

P+ 4 4 ' Sea nmew eer eca= ome ee we (ee ee a a ae co ee 

3; 4 3 1! 

3 $19 1 

3 rh re BEGIN 

; “18 4¢ LOCAL 

. re a7 MESSAGE _VECT; 

; $18 545 ' If we get here the second time around (on the unwind from the 

; 41 228 ! final handler) then resignal the exception. Do not free up 

; ois ¢¢ : the page List again. 

; 420 549 If SIGNAL _ARGSCCHFSL_S1G_NAME] EQL SS$_UNWIND 

3 4 é 331 RETURN SS$_RESIGNAL; 

; 4 4 0358 IF <PAGE LIST NEQ 0 

3 2 : 3232 DBGSSET_PAGE _PROT(PAGE_LIST, TRUE ,MESSAGE_VECT); 

: 428 9e89 RETURN SS$_RESIGNAL; 

: 429 0558 END; 


0004 00000 DEPOSIT_HANDLER: 
. WORD 


Save R2 
52 00000000' FF H 9000 ROVA PAGE JLIST, R2 
5 04 AC 00 0000 MOVL SIGNAL_ARGS RO 
00000920 &F 04 Ap p 01 cHPL 4 (RO), "#2336 
2 p 1A TSTL | PAGE_LIST 
D 1C BEQL ss 18 
F pb 1 PUSHL SP 
DD PUSHL #1 
§ 1) PUSHL R 
000000006 90 : FB 90 CALLS @ DBGSSET_PAGE_PROT 
0 0918 8F zt 00 1$ MOV ZUL #2$28, RO 


; Routine Size: 49 bytes, Routine Base: DBGSCODE + 0217 


(5) 


0555 


VOe 


0004 

50 04 AC 00 
po OS AE 
06 12 

52 14 =A 7 
25 gj 91 
52 18 83 ie 
1 ii 

26 51 91 


00000 TEXT_LENGTH: 
oW RD 


7 
16-Sep- 
14-Sep- 


1986 92:97:68 EOeau 


6. SACS 


by the parse network and performs the semantic actions corresponding to 
the parsed 4 ag command. If the command cannot be executed, a message 
8 


the command has been classified as plain 
and all default and override types have 


nstruction DEPOSITS). 


G$W_VALUE LENGTH]; 


CD 
SCCDBGSL_VALOE_PO 
af DBGSL_VALUE_POIN 


0 Save R2 

MOVL VAL_DESC, RO 

MOVZBL 22(RO),. R1 

CMPB ORT, «wid 

NEQ I$ 

MOVZWL 20(RO), LENGTH 
RB 4$ 

CMPB RT, «#37 

BNEQ 2% 

MOVZWL 824 (RO), LENGTH 
RB 4 

CMPB RI, #38 


INT 
T 


Er) 
ER} 


while the second represents the source (either a value descriptor or a 


- A longword containing the address of the verb (head) 


3 : ; 59 1 GLOBAL ROUTINE DBGSDEPOSIT(VERB_NODE : REF DBGSVERB_NODE) : NOVALUE = 
3; 4 é } ' FUNCTION 

3 2 1 ? ! : This routine accepts as input the command execution tree constructed 
; 4 ii 

3 : 5 : argument vector constructed and returned. 

3; 6 67 1! Upon entrance to this routine 

; 440 68 ii DEPOSIT or Instruction DEPOSIT, 

3 rr. $ : : been set up in the adverb nodes. 

3 ca8 71 } There should be two noun nodes. The first is the target of the deposit 
3 6445 308 1! pointer to a counted string for 

; 46 574 1! 

: 46 575 1°! INPUTS 

3; 448 278 1! VERB_NODE 

3; 469 577 1! node of the command execution tree 
; 450 3278 1! 

3 «451 579 1 ! OUTPUTS 

: 43¢ S505 4§ |  euecsencecesesenncusouseccases 

; 45 581 1! 

3 4546 286 1 

3; 455 58 BEGIN 

; $28 0584 

; «45 585 

; 458 288 ROUTINE TEXT_LENGTH(VAL_DESC : REF DBGS$VALDESC) = 

3; 459 58 N 

3; 460 588 LOCAL LENGTH; 

3 rt 434 seLES Te . VAL_DESCCDBG$B_VALUE_DTYPE) OF 

; 0591 DSCSK_DTYPE_T]: | LENGTH = .VAL_DESC 

: 464 B28 DSCSK_DTYPE_VT]: LENGTH = .(.VAL_DE 

; 059 DSCSK_DTYPE_AC): LENGTH = .(.VAL_DE 

3 0594 OTHERDISE): SIGNAL (DBG$_ILLTYP 

3 0595 TES; 

; 05 RETURN .LENGTH; 

3 05 2 END; 


s-32 Vv4.0- 
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; Routine Size: 60 bytes, Routine Base: DBGSCODE + 0248 


; 470 98 

; 471 0399 

3 o78 600 LOCAL 

3 467 0601 SOURCE _NN REF DBGSNOUN_NODE, ' Source of deposit 
: 476 one TARGET REF DBGSNOUN_NODE ! Target of deposit 
3; 475 0 TYPE _NODE : REF DBGSADVERB NODE, ! Command qualifier 
3; 47 604 PRIM_DESC : REF DBGSPRIMARY, 

3; 47 0605 ADDR_DESC : REF DBGSVALDESC, 

; 478 060 DATA_DESC REF DBGSVALDESC, 

: 479 4 MESSAGE_VECT; ! Error message vector 
; 481 060 BUILTIN CALLG; 

; 48 0610 

; ret gett ENABLE DEPOSIT_HANDLER; 

; 485 0613 TARGET_NN = .VERB_NODECDBG$L_VERB_OBJECT_PTRI; 

: 486 0614 SOURCE"NN = .TARGET_NNCDBG$L_NOUN_LINK): 

> 487 0615 PRIM_DESC = .TARGET-NNCDBGSL ~NOUN-VALUE J; 

; 488 8918 DATA_DESC = ,SOURCE_NNCDBGSL_NOUN_VALUE); 

: 489 61 PAGE-LIST = 0; 

; 491 0619 ! Convert both the source and the target to value descriptors. 

; 49 bese ! eval_lang_operator is used to convert the source because it 

; 49 0621 ! is sensitive to any panpuooeoner iit rules for converting 

3 494 06 § ! primaries to values (e.g., in BLISS we do primary->address, 

3 $32 + 7 } in other languages we do primary->value). 

3 ref +9 5 FF gs PATA_DESCEDOSIS_HOR TYPED EQL DBGSK_PRIMARY_DESC 

; 499 $659 DATA_DESC = DBGSEVAL_LANG_OPERATOR(DBGSGL_IDENTITY_TOKEN, 

; 500 0628 -DATA_DESC, 0); 

3 23) 0680 DBGSPRIM_TO_VAL(.PRIM_DESC,DBGSK_V_VALUE_DESC,ADDR_DESC); 

; 208 be 1 IF (TYPE NODE = .VERB_NODECOBGSL_VERB_ADVERB_PTR]) EQLA 0 

: ape 06 § THEN DBGSSAVE_LOC(.PRIM_DESC) 

; 505 06 ELSE 

3 206 BEGIN 

3 20 5 LOCAL ath Ae OVERRIDE_SIZE; 

; 508 raed ittes: _DHDR_F CODE = RSTSK TYPE_DESCR; 

; 509 6 ADDR“ DESCCDBG$V_DHDR- OVERRIDE) = TROE; 

; 510 OVERRIDE_TYPE =". TYPE_NODE DBG$B_ADVERB_LITERAL]; 

3 511 OVERRIDE SIZE = . TYPE NODELDBGSL_ADVERB_VALUE); 

; \¢ 279 SELECTONE -OVERRIDE_TYPE OF 

; 514 ong Pbscsx DTYPE_AZ,DSCSK_DTYPE_AC ,DSCSK_DTYPE_VTJ: 

3; 515 064 BEGIN 


m7 
te tt 1o80-138e 92:79:65 — Foxaug. Sreioacrevers. 
52 18 60 ah 3 3 ROVzL 3540), LENGTH 
00028708 8F DD B 3S PUSHL #165848 
servcoeats | 5 Ob BBE us, Raut fact 
4 00038 RET . 


SSS sissies sete 


N 7 
16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-74 Page 17 
13-80 8= 1382 93:79:88 DEBUG. SRCIJDBGLEVEL3.832;1 . (6) 
: 16 644 4 IF .ADDR ESCEDSCSB CLASS] EQL DSC$K_CLASS_UBS THEN SIGNAL (DBG$_UNALIGNED); 
; 51 645 4 ADDR_DESCCDBG$B_VALDE_CLASS] = DSCS$R_CLASS VS; 
; 518 646 4 ADDR-DESC[DBG$B-VALUE-DTYPE] = .OVERRIDE TYPE; | 
; 519 47 4 ADDR-DESCCDBGSW-VALUE_LENGTH)] = TEXT_LENGTH(.DATA_DESC); 
3 0 ote END; 
: $21 64 
3 ¢ 650 CDBGSK_DTYPE_AD]: 
; ; 0691 IF“NOT CRECK_TEXT_DESCRIPTOR(.ADDR_DESC) THEN SIGNAL (DBG$_DESCNOTSET); | 
: 5 bess COTHERWISE): 
; g 0654 4 BEGIN 
; 4 oes ; IF, (-ADDR_DESCCOBGSB_VALUE CLASS] EQL DSC$K_CLASS_UBS) | 
: §29 re] 5 BEGIN 
: 0 0658 A IF (.OVERRIDE_SIZE GTR 32) | 
; 2 1 065 6 OR (.OVERRIDE-TYPE EQL DSC$K_DTYPE_71) 
: ¢ 660 6 OR (.OVERRIDE-TYPE EQL DSCSK-DTYPE-T) 
. 0661 THEN | 
.-. 0668 SIGNAL (DBG$_UNALIGNED) ; 
; 239 066 
a 0664 4 LSE | 
: 237 0665 4 ADDR_DESCCDBG$B_VALUE_CLASS] = DSC$K_CLASS_2Z; | 
: 238 0667 5 IF (.OVERRIDE_TYPE EQL DSC$K_DTYPE_T) 
3; 540 0668 4 N | 
: 541 0669 5 (,OVERRIDE_SIZE EQL 0) 
: 24¢ 9670 4 THEN OVERRIDE-SIZE = TEXT_LENGTH(.DATA_DESC); 
3 544 0672 4 ADDR_DESCCDBG$B_VALUE_DTYPE] = .OVERRIDE_TYPE; 
> 545 0673 4 IF .OVERRIDE_TYPE EQL~DSCSK_DTYPE_ZI | 
3; 546 0674 4 THEN 
3 547 0675 5 BEGIN 
; 548 0676 5 LOCAL 
; 549 0677 3 : 
3; 550 0678 
: 551 0679 5 ADDR = .ADDR_DESCCDBGSL VALUE POINTER]; 
; 226 0680 5 ADDR_DESCCDBG$W_VALUE_LENGTH]~= 
3: 55 0681 5 DBGSINS_DECODE(.ADDR, FALSE, FALSE ) = .ADDR; | 
3; 554 0682 5 END 
; 555 0683 5 | 
: 556 0684 4 ELSE 
; 557 0685 4 ADDR_DESCCOBG$W_VALUE_LENGTH] = .OVERRIDE_SIZE; 
: 338 O68? 3 END | 
: 386 $688 
3; 561 689 TES: | 
3 36¢ 690 DBGSSAVE_LOC(.PRIM_DESC,ADDR_DESCCDBGSA_VALUE_VMSDESC)); 
> 56 9691 END; | 
3 564 9 
3 365 0693 DBGSSAVE_VAL(.DATA_DESC); 
: 269 et} IF NOT DBGSNGET_PAGES(.PRIM_DESC,PAGE_LIST,MESSAGE_VECT) 
; 568 69 OR NOT DBGSSET~PAGE_PROT (PAGE _LIST, FALSE ,MESSAGE_VECT) 
: $9 69 THEN 
: 0 98 
: 571 699 PAGE LIST = 0; 
3 572 0700 CALLG(.MESSAGE_VECT,LIBSSIGNAL); 


tc} 
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: 573 701 END; 

oe 74% 

; 9 f § DBGSEVAL_LANG_OPERATOR(DBG$GL_DEPOSIT_TOKEN, .DATA_DESC, .ADDR_DESC); 
: §7 705 IF NOT DBGSSET_PAGE_PROT(PAGE_LIST, TRUE ,MESSAGE_VECT) 

3 78 7 $ THEN 

; 9 1 PAGE_LIST = 0 

° = > 

; 58] 18 CALLG(.MESSAGE_VECT,LIBSSIGNAL); 

3 5 710 END; 

; 58 711 

3 ge re : Set registers context and return 

: 286 orig DBGSSTA_SETREGISTERS(); 

; H+ Beis Update all watch point event entries after the DEPOSIT. 
: 590 0718 DBGSUPDATE_WATCHPOINTS(); 

; 591 0719 

s 592 0720 1 END; 


OFFC 00000 .ENTRY DBGSDEPOSIT, Save R2,R3,R4,R5,R6,R7,R8,R9,= ; 
5B 000000006 00 9€ 00002 MOVAB DBGSSAVE_LOC, R11 
5A 000000006 00 9E 00009 MOVAB DBGSEVAL~LANG_OPERATOR, R10 
59 000000006 00 9E 90019 MOVAB LIBSSIGNAL, R9 
58 00000000' EF 9E 00017 MOV PAGE LIST, R8 
5€ 08 C2 O001E SUBL2 #8, SP 
6D 0168 CF DE 900 1 MOVAL 16$, (FP) 
38 04 AC 00 00026 MOVL VERB_NODE 
5 08 a DO O002A MOVL 8(R2), TAR N 
51 08 AO DO 000 MOVL § 8(TARGET_NN), “SOURCE_NN 
57 60 D0 000 MOVL § (TARGET_NN), ESC 
56 61 00 000 MOVL § (SOURCE"NN), DATA~DESC 
68 04 900 8 CLRL PAGE_LIST 
79 «oF 02 A6 91 OOO3A CMPB =. 2(DATA_DESC), #121 
10 12 0003F BNEQ = '1$ 
7E D4 00041 CLRL = = (SP) 
56 0D 0043 PUSHL DATA_DESC 
000000006 OF Oe PUSHAB DBGSGL_IDENTITY_TOKEN 
6A F 48 CALLS #3, DBGSEVAL_LANG_OPERATOR 
56 DO 0004E MOVL RO, DATA_DEST 
SE pD 0051 1$: PUSHL SP 
7E as i A 0005 MOVZBL #131, -(SP) 
7 0D 0005 PUSHL PRIM‘ DESC 
000000006 99 03 F 0 59 CALLS #3, OBGSPRIM TO VAL 
04 A2 OD 60 MOVL 4(R2), TYPE_RODE 
Q 1 64 BNEG 
DD PUSHL PRIM_DESC 
68 01 Fe 6 CALLS #1, BBGSSAVE_LOC 
5 ae 6 oe 2$ ECVE h DR_DESC, R2 
0% A thal MOV eer ecRS) 


oo 
ou 
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80 
04 


0c 


9 00028008 


6 
9 00028F 50 


14 
03 


9 00028008 


03 


ww 
wn 
ee 


~ 
bad 


Ww 
Cad 
oe 
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#128, 4(R2) 
(TYPE_NODE), OVERRIDE_TYPE 
4(TYPE_NODES OVERRIDE_SIZE 
ERRIDE_TYPE, #37 


ERRIDE_TYPE, #39 
(R2), #13 


RR BUI~FOfO 
—_ Oo 


Vv 
$ 
Vv 
$ 
§ 
1 
1 


7176 

LIBSSIGNAL 

8 (R2) 
OVERRIDE_TYPE, 22(R2) 
ATA 


#1, TEXT _LENGTH 
RO, 20(R2) 


OVERRIDE_TYPE, #56 


5$ 
R2 


OVERRIDE_SIZE, #32 

OVERRIDE_TYPE, #22 

OVERRIDE_TYPE, #14 

#167176 

#1, LIBSSIGNAL 
(R3) 

OVERRIDE_TYPE, #14 
VERRIDE_SIZE 


24(R2), ADDR 
=(SP) 


agen 

#3, DBGSINS | ete 

ADDR, RO, (R3) 

OyERR IDE SIZE. (R3) 
(R2) 


PRIM_DESC 
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d 8 
16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-74 Page 20. 
127808 -1 3c 93:70:48 DEBUG. SRC IDBGLEVEL 3.83 31 . (6), 
* os BB Opis 126: Poth « bataPpese VEWtOC : 0693. 
000000006 00 FB 001 § CALLS #1 BBGSSAVE_VAL : 
04 AE 9F 001 PUSHAB MESSAGE _VECT + 0695. 
0180 8F BB 001 PUSHR #*M<R7,R8> : | 
000000006 00 ; Fe 1 ¢ CALLS #3, DBGSNGET_PAGES 3 
1 t 14 BLBC ; | 
06 AE SF 148 PUSHAB MESSAGE_VECT : 0696. 
7E 04 0014 CLRL = = (SP) : 
58 0D 00148 PUSHL Rg : 
000000006 00 : FB 00140 CALLS #3, DBGSSET_PAGE_PROT : | 
6 E 8133 BLBS RO, 14$ 3 
68 04 00157 138:  CLRL  PAGE_LIST + 0699 
69 06 BE FA 00159 CALLG @MESSAGE_VECT, LIBSSIGNAL + 0700 | 
GE DD OO15D 148: — BUSHL —ADDR_DESE ; 0703 | 
D 0015F PUSHL DATA-DESC ; 
000000006 09 9F 00161 PUSHAB DGSGL DEPOSIT, TOKEN : | 
6A FB 00167 CALLS #3, DBGSEVAL_LANG_OPERATOR ; 
04 AE 9F OO16A PUSHAB MESSAGE _VECT : 0705 
01 DD 0016D PUSHL @# ; 
: DD O16F PUSHL Rs ; 
000000006 00 g FB 00171 CALLS #3, DBGSSET_PAGE PROT : 
06 0 E8 00178 BLBS RO, 15$ : 
68 04 00178 CLRL AGE _L + 0708 
69 04 BE FA 0017D CALLG @MESSAGE_VECT, LIBSSIGNAL : 0709 
000000006 00 00 FB 00181 15$: CALLS #0, DBGS$STA_SETREGISTERS : 0714 
000000006 00 00 FB 00188 CALLS #0, DBGSUPDATE_WATCHPOINTS : 0718 
04 0018F RET : 0720 
0000 3a 139 16$: «WORD Save nothing : 0583 
7E D4 00192 CLRL 0s = (SP) : 
5E pp 00194 PUSHL SP ; 
7E 04 aC D 00196 MOVO. 4(AP), -(SP) ; 
FOFS CF 03 FB 0019 CALLS #3, DEPOSIT_HANDLER ; 
04 0019F RET : 


; Routine Size: 416 bytes, Routine Base: DBGSCODE + 0284 
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cr 
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; oe 4 1 } GLOBAL ROUTINE DBGSEVALUATE(VERB_NODE): NOVALUE = 

; %6 158 1} FUNCTION 

; 59 726 1! This routine is the gonnend execution network for the EVALUATE command. 
3 4 725 1! Various semantic actions are performed which correspond to the arguments 
3 £00 f $ : : and operands of the parsed input string. 

; ret g 8 ! ; EVALUATE sets Last vai ‘\", EVALUTATE/ADDRESS sets '.', current loc. 

; £08 730 1 ' INPUTS 

; 604 7 1! VERB_NODE -A Lenquerd containing the address of the head 
; 605 4 ¢ } : node in the command execution tree 

; £08 734 1 | OUTPUTS 

5 obs , 5 : NONE 

: 610 a 5 

3 el g : BEGIN 

: 61 740 MAP 

3 ar O74 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to the input Verb Node 
fe Rm, 

: 618 745 NOUN_NODE: REF DBGSNOUN_NODE, 

; 619 ores BASE NODE: REF DBGSADVERB_NODE, 

3 0 074 PRM_DESC: REF DBGSPRIMARY, 

; 621 ares VAL_DESC: REF DBGSVALDESC; 

3; 6 ; 749 

3; 6 3730 

: 85s $783 

; 626 org ! Flush the current print buffer. Then pick up the first Noun Node pointer, 
3 ? : One the Adverb Node pointer, and the radix setting for this command. 

: 629 0756 DBGSFLUSHBUF (); 

; 6 75 NOUN_NODE = .VERB_NODE (DBGS$L_VERB_OBJECT_PTRI; 

; 6351 758 BASE NODE = .VERB_NODE [DBGSL_VERB_ADVERB_PTR); 

3 ? § 3584 IF BASE NODE EQLA 0 

: 6 0761 RADIX = DBGSK_DEFAULT 

3; 635 76 ELSE 

3; 6 76 RADIX = .BASE_NODECDBGS$B_ADVERB_LITERAL); 

.: ons: 

3; 639 706 ! Loop through all the Noun Nodes to process each expression on the 

3 oe AS } EVALUATE command. 

; 64¢ 7 WHILE .NOUN_NODE NEQ 0 DO 

; 646 770 BEGIN 

3 6644 771 PRM_DESC = .NOUN_NODECDBGSL_NOUN_VALUE]; 

; eae ve DBGSCOLLECT(..PRM_DESC); 

i 64 77% 

; 668 775 ' Case on the kind of EVALUATE command Verb Node we have as determined 
3 rh B78 by the command qualifiers. 


Jeeect94e QUeH0:38 WGI SLINGS VEZ tome 


; 6 i CASE... VERB_NODECDBGSB_VERB_ COMPOSITE] FROM EVALUATE TO EVALUATE_COND OF 
; 6 7 

; 6546 7 

: 2 5 f § } — the plain EVALUATE and the EVALUATE/CONDITION_VALUE com- 
: 6 784 

; 6 § 785 CEVALUATE, 

; 623 f $ Z EVALUATE. COND): 

: 661 788 & IF .PRM_DESCCDBGS$V_DHDR_AGGR] THEN SIGNAL (DBG$_NOVALUE); 

; 666 f ; a VERS. NODECDBGSB_VERB_COMPOSITE] EQL EVALUATE_COND 

3 664 rot 4 PRM_DESCCDBGSV_DHDR_FORMAT) = 1 

: 793 & ELSE IF .RADIX NEQ DBGSK_DEFAULT 

3 $e? 794 & THEN ~seaee 

; 668 798 4 PRM_DESCCDBGSV_DHOR_FORMAT) = 0; 

; 670 79 DBGSPRINT_VALUE(.PRM_DESC,.RADIX, .DBGSGL_SIGN_FLAG); 

oh BRS a 

; ore 800 

; ore ert Handle the EVALUATE/ADDRESS command. 

: 67 508 CEVALUATE_ADDR): 

ig se seat 

: 6 4 PTR 

3 O30? 4 REGDESCR, 

; 08 8 é VMS_DESC: DBGSSTG_DESC; 

; 0810 4 DBGSSAVE_LOC(.PRM_DESC) 

3 HE ‘ DBGSPRIM~TO_VAL(.PRM *DESC, DBGS$K_V_VALUE_DESC,VAL_DESC); 

; 13 4 

; si3 2 : Check whether the address is in the register save area. 

: B16 4 REGDESCR = DBGSSTA_ADDRESS_TO_REGDESCR(.VAL_DESCCDBGSL_VALUE_POINTER]); 
; Bi 4 IF :REGDESCR NEQ O” THEN 

; 15 = DBGSSTA REGISTER NAME(, REGDESCR) 

; 9 Dac PRINT(UPLIT BYIECEASCIC “TAC*).. SNAMEPER) 

; 5 4 ELSE 

3 4 BEGIN 

3 5 VMS_DESC DSC$B_CLAss) = DSCSK_CLASS_2; 

3 $ VMS~DESCLDSCSB_DTYPE) = DSCSK-DTYPE-LU; 

; VMS"DESCEDSCSW-LENGTH) = 4; 

; § VMS ~DESCLDSCSA POINTER] = VAL_DESCCDBGS$L_VALUE_POINTER]; 

; ; DBGSPRIN _VALUE_AS_INTEGER(VMS_DESC, .RADIX); 

; 1 4 ; 

; § 2 If the address is a bit_field then also print the <p.,s.e>. 
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POSSPRINT FIELD _REF (.VAL_DESC, TRUE); 


! Any other kind of 2 Se pene never occur. If it does, we 
¢ 


signal an internal DE ng error. 
CINRANGE , OUTRANGEJ: 

$DBG_ERROR( ‘DBGLEVEL3\EVALUATE'); 
TES; 


!' Close out the current print Line, Link to the next Noun Node on the 
! Noun Node List, and Loop. 


DBGSNEWLINE(); 
NOUN_NODE = .NOUN_NODECDBGSL_NOUN_LINK]; 
END; ! End of WHILE loop over expressions 


: The EVALUATE command is processed. Now return. 
RETURN; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


ASCII 


43 41 21 03 000 AAA: <3>\!AC\ 
45 56 45 4€ of $ rf i 94 eAAB: «ASCII = <18>\DBGLEVEL3\<92>\EVALUATE\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OOFC 00000 .ENTRY DBGSEVALUATE, Save R2,R3,R4,R5,R6,R7 
57 000000006 00 i 000 HOVAB LIBSSIGNAL, R7 
5 10 ¢2 000 SUBL2 #16, S$ 
000000006 g 00 FB 9 0 CALLS #0, DBGSFLUSHBUF 
4 06 AC OD 1 MOVE VERB E, R 
56 08 AG OD 1 MOVL (R43, NOUN_N 
50 04 Ad D 1B MOVL  4(R4), BASE-NODE 
5 12 OOO1F BNEG 1 
55 1 9 1 MOVL #1, RADIX 
; 1 4 BRB 2$ 
55 : 9A 1$: MOVZBL (BASE_NODE), RADIX 
6 D 23: TSTL | NOUN_RODE 
es: 
52 D0 F 3$: MOVL § (NOUN_NODE), PRM_DESC 
DD PUSHL PRM_DESC 
FDOF CF FB 3 CALLS #1, ~DBGSCOLLECT 


ree 


-——_----S 


o 


; Routine Size: 258 bytes, Routine Base: DBGSCODE + 


| 
424 | 


H 8 | | 
“Sep- :30: AX-11 Bliss-32 V4.0-74 Page 24. 
a IEScHSEE SUSTHGS YOUU. ShdszadEetec hE. ae 
1 01 AG BF CASEB R4), #1, #2 ; 0778 
00000000" EF ; PUSHAB P.AAB + 0843 
: oes PUSHL #164706 5 urs) 
ance me rp ti CALLS a. L1B$S1GNAL Bee) 
9 00056 58: BLBC  4(PRM_DESC), 6$ : 0788 | 
tid 1]: OR Er om 4 
§% 01 AG ) 63 6S: CHS (Rad, in ; 0789, 
0S A2 04 04 t f INsv #1, #4, #4, S(PRM_DESC) : 0791 | 
01 5 Ol 78: (HPL RADIX, 1 ~ 
1CB2 #240, S(PRM_DESC) : 0795 
veal 000000096 ; 5D 8$: PUSH DGSGL_S1GN_FLAG ; 0797 
000000006 00 3 Fs CALLS 3, DBGSPRINT_VALUE : we 
53 DD c 25: PUSHL BRM_DESC > 0810 
000000006 00 FB CALLS fl, DBGSSAVE_LOC : 0811 
m oo PRM MA Bn i 
aes os B A loi eae 
18 Ad DD PUSHL ’ F 
000000006 ALLS #1, DBGSSTA_ADDRESS_TO_REGDESCR ; 
” 8 03 Feit R GDESCR + 0817 
3 bb PUSH REGDESCR > 0819 
00000000 CALLS #1, DBGSSTA_REGISTER_NAME F 
© owe fee Bt, Ea = 
000000006 00 ee 09 re C6 CALLS t DBGSPRINT ; 0817 
; : 7 
BSA Ommoons HE BP BREF TTA: BONS SERINE. PEEL a 
3 4 DE PUSHAB VAS DES = 
000000006 06 = 3% fa 3 178; cuts te PRINT_VALUE_AS_INTEGER S ogss | 
DD OOOEFKA =——si—“‘<‘ié‘éPSHKLSCiéR ; 
#2, DBGSPRINT FIELD_REF : 
itddittdts 4 FS 13$: atts #0, SO CSNEUL IRE 3 903) 
6 08 A FA MOVL (NOUN_NODE), NOUN_NODE : g 
$ 5 eB 
we oir 2m ae 
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; O86 GLOBAL ROUTINE DBGSEXAMINE(VERB_NODE: REF DBGSVERB_NODE): NOVALUE = 
; 0864 1 | FUNCTION 

3 DBE i This routine performs the action proce totes with EXAMINE xxx. 
; 0866 i We always get three severe nodes | to the verb node. See the 
: 086i routine header for DBGSNPARSE EXAMINE in DBGNEXMNE.B32 for details. 
; fe 0869 1 | INPUTS 

3; 766 D870 1: VERB_NODE = A seoguere containing the address of the command 
3 i? +t : execution tree verb (head) node. 

: ts gre | Outputs 

; 749 0879 1: 

; ? 1 087 BEGIN 

sl Hl +443 LOCAL 

EE, 880 F : REF DBGSNOUN_NOD 

3; 755 088 “NODE i REF DBGEADVERD. NOSE. 

a. DBE BASE ~NODE : REF DBGSADVE RB-NO DE, 

; 7 088 MODE “NODE : REF DBCEADVER “NODE, 

; 7 § O8§ PRM_DESC : REF DBGSPRIMARY, 

3; 75 0885 END-DESC : REF DBGSPRIMARY, 

3; 760 BBE VAL “DESC : REF DBGSVALDESC, 

3 761 BE NEW-SIZE : WORD, - 
ee. 888 NEW TYPE : BYTE, 

3; 76 0885 RADIX : BYTE, 

: 764 0890 FORMAT_ONE : BYTE, 

; 765 0891 FORMAT~ TWO : BYTE: 

; 706 1344 NODE = .VERB_NODECDBGSL_VERB_OBJECT PTR]; 

3 768 0894 “NODE = .VERB_NODE(DBGSL~VERB- pADvERs. PTR): 

ss. 0895 BASE-NODE = .TYPE-NODE(DBGSL_ADVER MKT: 

; 770 D896 &- = .BASE-NODECDBGSL— “ADVERB tink 

; Ae 0898 SELECTONE . VERB_NODECDBG$B_VERB_COMPOSITE) OF 

> 77% 1900 EXAMINE): 

: 77 090 BEGIN 

Be. 0908 NEW_TYPE = .TYPE_NODECDBGSB_ADVERS_LITERAL); 

; 77 090 NEW-SIZE = .TYPE-NODECDBGSL_ADVERB- VALUE); 

3 78 090 RADTX = ,BASE-NODECDBG$B_ADVERB-LITERALJ; 

; 7 0905 FORMAT_ONE = 0; 

3 ’ : 0906 END; 

; 08 0908 CEXAMINE_SOURCE): 0; 

: 7 0910 CEXAMINE CONDI TION_VALUE): 

3; 785 091 BEGIA 

i bie NEW_TYPE = DSCSK_DTYPE_LU; 

: 7 091 NEWSIZE = 4; 

> 0914 ADTX = pbcsx_ DEFAULT; 

: 7 0915 FORMAT_ONE = 

: Oe 5919 : 

: 792 0918 CEXAMINE_PSLJ: 
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¥PE = DSCSK_DTYPE_LU; 
os BGSk_DEF AULT; 
T p6 “ ; 


| am 
m 
* 
os mz 
52 
x 
“uw 


SCSK_DTYPE_wu; 
: ROGSK_DEFAULT; 


ma 
x 
~% 


m~"2D 

ess 
= 
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! Any other kind of the Verb Node is invalid, so we signal an internal 
: DE coding error. 


COTHERWISE): 
G_ERROR( "DBGLEVEL3\EXAMINE"); 


TES; 
| ewccce 
; 
BEGIN 
DBGSF LUSHBUF () ; 
If VERB _NODECDBCSS_VERB_COMPOSITE) EQL EXAMINE SOURCE 


BEGIN 
— 


DESC 
START ADDRESS, 
F INAL_ADDRESS; 


DBGSPRIM_TO_VAL(.NOUN eoeE pee DBGSL_NOUN_VALUE ],DBGSK_V_VALUE_DESC,VAL_DESC); 
START T ADDRESS = .VAL_BESC BGs VALUE “PO INTER; 
becsenin | NODE DB {_NOUN “VALUE },08G$K_V_VALUE_DESC,VAL_DESC); 
iDBRESS = .VAL_DESC pBeee _QALUE “POINTERS; 


ieee the source. The third parameter indicates that the 
module name is to be displayed. 


DBGSSRC_TYPE_PC_SOURCE(.START_ADDRESS, .F INAL_ADDRESS, TRUE .FALSE); 
PRM_DESC = .NOUN_NODECDBGSL =NOUN VALUE 2] 

Commented out because screen down dees EXAMINE/SOURCE and 

we don't want to save dot there. 


DBGSSAVE_LOC(.PRM DESC); 
END '” EXAMINE / SOURCE 


: REF DBGSVALDESC, 


row 
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1 
ELSE 


BEGIN ! Data Ex aioe 

PRM_DESC = “NOUN NODE DBGSL NOUN. VALUE]; 

END-DESC_= .NOUN-NOD DBGSL- “NOUN” VALUE2); 

DBGSCOLLECT( .PRM_DESC ; 

DBGSCOLLECT(.END-DESC);: 

IF -END_DESC NEQ 0) AND (.PRM_DESC NEQ .END_DESC) 
BEGIN 


i We have a ranged examine (EXAMINE <prm>:<end>) 

i Check for the case where the two endpoints are part 

i of ths structure. We have to ensure that a number 
! of conditions are met, e.g., they are both primaries, 
{ they are not aggregates, and so on. 


iF (.PRM_DESCCDBG$B_DHDR_ TYPE] EQL DBGSK_PRIMARY_DESC) 
(.END_DESCCDBG$B_DHDR_ TYPE] EQL DBGSK_PRIMARY_DESC) 
(.PRM_DESCCDOBGSL_DHDR SYMIDO] EQL .END_DESCCDBGSL_DHDR_SYM1D0)) 
(.NEW_TYPE EQL DBGSK NOTWPED 
(NOT .PRM_DESCCOBGSV DHOR. AGGRIJ) 
(NOT .END_DESCCDBGSV DNOR AGRI) 
(NOT .PRM_DESCCOBGSV POR SUBREF J) 
— (NOT .END_DESCCOBGS$V_DHDR_SUBREF J) 
BEGIN 
i The start and end of the ranged examine appear to be 
Start is earlier aggre ete os ructure. Check that the 
i 


if PRIMARY. pases. -PRM_DESC,.END_DESC) GTR 0 THEN SIGNAL (DBG$_EXARANGE) ; 


BEGIN 
LOCAL MARK: 
K = DBG$ 


BG NT DESC); 
DBGSPRINTCUPLIT BYTE(ZASCIC °!Ab! UPLIT BYTE(*: ")): 
GSPRIN To VAL(.PRM_DESC .DBGSK_V VALU £ best VAL_DESC) 
F .FORMAT ONE NEQ O-THEN VAL _DESCCDBGSV_DHDR Format) = .FORMAT_ONE; 
DBGSPRINT QA UE. VAL_DESC, .RADIX, atthe _SIGR_FLAG) 
DBGSNEWL IRE 
DBGS SAVE LOCC. PRM DESC); 
DBGSPOP_TEMPMEM( MARK): 
LF PRIMARY ORDER. PRM DESC, « sEND_DESC) GEQ 0 THEN EXITLOOP; 
IF NOT MODTFY_PRIMARYT.PRM.DESC70) THEN EXITLOOP 


Be Se Ge Se Se Se Ge Ge Se Ge Se Se Ge Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Se Se Se Se Se Se SH Se Gs Ge Se Ge Se Se Ge Se Se Se Se Se Ge Ge Ge Sees 
BD INNS SSD DDD DDD. DID. ID TD ID ID ID ID ID. III UE BP BE PO 


ee ee ee ec ce ee ee ee ee ee a ed ed ed od od = CO OO OO ODO OOOOOOOOOOOOOOOO 
wl DWwWWWOWOWOWWOOWOWOS OO 
ele 0.00 
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H 7 1 5 ELSE 

; ! ¢ BEGIN 

3 1 } ; The start and end are NOT part of the same aggregate. 

: 91 1 LOCA 

; 318 1 ° RK, 

; gis 1 LAST_ADDR, 

; 915 1 NEXT“ADDR, 

; 318 1 : 6 DESC“TYPE, 

; 91 1 a ADDR DESC REF DBGSVALDESC, 

; 318 1044 RDEST_ONE PBGSREGDESCR, 

; 91 1045 RDESC- TWO BGSREGDESCR, 

: 930 1066 LENGTA; 

; 9 ¢ 1048 $ ADDR_DESC = DBGSCHANGE_DTYPE(.END_DESC,.NEW_TYPE,.NEW SIZE); 

7 9 104 RDESC_ONE = DBGSSTA ADBR $$_T0 REGDESCA( ADBR_DESCLOBGSL_VALUE_POINTERJ) ; 
; 926 1050 6 LAST_ADDR = .ADDR DESCCOBGSC_VALUE POINTER); 

3 925 1051 6 ADDR-DESC = DBGSCRANGE DTYPET.PRM_ DESC, .NEW TYPE,.NEW SIZE); 

; 9 6 105¢ 6 RDESC_TWO = DBGSSTA_ADDRESS. TO_REGDESCR(.ADDR_DESCLDBGSL_VALUE_POINTER)); 
; 3 { 1034 6 IF (CRDESC_ONE KOR .RDESC_TWOY AND %X°FFFFOOFC') NEQ 0 

; 309 1055 6 SIGNAL (DBG$_EXARANGE) ; 

; 4 1 1987 6 IF .LAST_ADDR LSSA .ADDR_DESCCDBGSL_VALUE_POINTER] 

; 338 1059 & SIGNAL (DBG$_EXARANGE) ; 

; 3 5 1061 ? IF (.ADDR_DESCCOBG$B_VALUE_CLASS] EQL DSC$K_CLASS_UBS) 

; 937 1968 6 SIGNAL (DBG$_ILLTYPE); 

: 939 1065 6 DESC_TYPE = DBGSK_VALUE_DESC: 

3 940 1066 6 IF (TADDR_DESCCOBG$SB_VACUE_DTYPE] EQL DSCSK_DTYPE_ZEM) OR 

> 941 1067 ( ADDR-DESCLOBG$B-VALUE_DTYPE) EQL DSC$K-DTYPE—ZI) 

; rk 1068 6 EN 

3 9% 1069 6 DESC_TYPE = DBG$K_V_VALUE_DESC; 

3 1 

; 946 1072 § oo 

; 948 107% 6 WHILE TRUE DO 

; 950 1 ds 7 MARK = DBGSPUSH_TEMPMEM(); 

; 951 1077 7 DBGSPRINT_IDENTIFIER( ADDR DESC); 

3 93¢ 1078 7 DBGSPRINTTUPLIT BYTE(ZASCIC "'AD!_*),1,UPLIT BYTE(':")); 

; 95 1079 7 DBGSPRIM_TO VAL (- ADDR DESC, .DESC._ TYPE, VAL DESC); 

; 954 1080 7 IF .FORMAT ON THEN VAL_DESCCDBGS$V_DHDR FORMAT) = .FORMAT_ONE; 
; 955 1081 7 DBGSPRINT QALUE(.VAL_DESC,.RADIX, .DBGSGC_SIGR_FLAG); 

; 336 10 é 7 DBGSNEWLINE (); 

3 937 10 , DBGSPOP_TEMPMEM( MARK); 

: 959 18 5 7 ! Get the increment we will add to the address for 

: 960 10 § 4 ! the next Line of the ranged examine. If the increment 

3 oe3 is if is zero then signal an informational and get out of the loop. 
; 968 1989 7 LENGTH = (DBGSDATA_LENGTH(ADDR_DESCCDBGSA_VALUE_VMSDESC)) * (%BPUNIT-1))/ZBPUNIT; 


m 8 
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3 1 F LENGTH EQL 0 

; 5 1 3 Hien 

; 1 88 BEGIN 

; 996 109 SIGNAL(DBGS_ZEROINCR); ! Informational 

3 ; 1094 EXITLOOP: 

; 3 ! 95 ul END; 
; 3hy 1 39 NEXT_ADDR = .ADDR_DESCCOBGSL_VALUE_POINTER] + .LENGTH 
; 97 1098 F .NEXT_ADOR GTRA .LAST_ADDR THEN EXITLOOP; 
3; WT 1099 7 ADDR_DESCCOBGSL_VALUE_P = ,NEXT_ADDR; | 
3; 974 11 3 I at ADDR_DESCLOBGS$B_VALUE -prvPe} EQL DSCS$K_DTYPE_ZEM) 

3 af? 1 1 5 -ADDR-DESCCDBG$B_VALUE_DTYPE] EQL DSCS$K_DTYPE_Z1)) 

: 97 1108 "BEGI | 
; 978 1104 IF “2aGs1s IT_ENTRY(. wexT A on) | 
; 979 1105 ADBR_BESCCOBS VALUE ervey = DSCSK_ pTvee _ZEM 

; 980 1108 acpr. DESC ttt VALUES DTYPE] = DSCSK-DTYPE-ZI; 

3 + 1108 nob sbESe DBG$wW_VALUE_CENGTH] = DBGSINS_DECOBE(.NERT _ADOR, FALSE) = .NEXT_ADDR; 

; 98 1109 ELSE 

3 one Bb ? ADDR_DESCCDBG$W_VALUE_LENGTH] = FIX_UP_LENGTH(ADDR_DESCCDBGSA_VALUE_VMSDESCJ); | 
; 986 11g § pacssave _LOC(.ADDR_DESC); 
; 987 111 END; 

; 988 1114 § END 

; 989 1115 4 ELSE 

; 990 1318 5 BEGIN 
3; «991 1117 5 
; 338 1118 5 
; 99 1119 5 ! In the case where prm_desc is a volatile value descriptor 

: 994 1120 ' representing an absolite address, the print_identifier 
; 995 1121 ! will attempt to Syppes ive this address to a primary. If 

3; 996 11 § ! it succeeds, it will return the newly-constructed primary.. 

; 997 1s : : In all other cases, it just returns the descriptor we pass 
: 64 1i8¢ 2 into it, unchanged. 
3; 1000 1158 : PRM_DESC = DBGSPRINT_IDENTIFIER(.PRM_DESC); 

: 1001 11 DBGSSAVE_LOC(.PRM_DESC); 

; 1008 i 3 2 a i TYPE EQL BBGS$K _NOTYPE AND .PRM_DESCCDBGS$V_DHDR_AGGRI 
3 1004 1130 3 DBGSPRINT_AGGREGATE(.PRM_DESC, .RADIX) | 
; 1005 1131 LSE 
5 Hs 11 § 6 BEGIN 
; 100 11 6 pocsea aT (um iT Y Oyrecsascie C *tap!_*) UPLIT BYTE(':')); | 
3; 1008 1134 6 DESC = DBGSCHANGE ay E(.PRM “pest, Neu. TYPE, .NEW_ S12E); 
3; 1009 1135 6 tOR T TWO = .FORMAT | 
; 1010 i 6 6 IF Neo. TYPE NEQ DBGSK NROTYPE | 
; 1Ot¢ 1138 § DBGSSAVE_LOC(. - egks VAL_DESCCDBG$A_VALUE_VMSDESC)) 

; 101 1139 ELSE IF (FORMAT 0 SAND (RADIX EQL DBGSK DEFAULT) | 
3 1014 1140 7 a t DESECDB BCSB VALUE CLAS NEQ DSCSK SUA SS_UBS) 
3; 1015 1141 7 voac DESC tee VALUE_POINTER) EQLA DBGSREG_VALUES(16)) 
me OMS iowioae 
; 1018 1144 6 IF _VAL_DESCCDBGSB.VALUE_pTYPE] NEQ DSCSK_DTYPE_2Z1 
3; 1019 1145 § THEN 

3 1020 1146 BEGIN 


71 
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END; 
END UNTIL (NOUN_NODE = .NOUN_NODECDBGS$L_NOUN_LINKJ) EQL 0; 


3 1021 1147 ? DBGSPRIM_TO_VAL(.VAL_DESC,DBGSK_VALUE_DESC,VAL_DESC); 
24 g 1148 DBG$DO_MAPPING(.VAL_DESC); 

ae RY 

; i 5 1151 6 IF ,FORMAT TWO NEQ 0 THEN VAL_DESCCDBGSV_DHDR_FORMAT] = .FORMAT_TWwO; 
74 6 11 ; DBGSPRINT_ VALUE(.VAL_DESC,.RADIX, .DBGSGL~SIGN-FLAG) ; 

31 11 DBGSNEWLINE(); 

214 8 1154 END; 

: 10 1155 4 END; 

3; 1030 11 § 

. | 

; 1088 1188 

> 10 1160 


RETURN STSS$K_SUCCESS; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4D 41 58 45 SC 33 4C 45 56 45 4C 47 42 44 u 90017 P.AAC: ASCII <17>\DBGLEVEL3\<92>\EXAMINE\ : | 
SF 21 44 41 21 95 00089 P.AAD: .ASCIT <5>\!AD!_\ 3 
A OOO2F P.AAE: ASCII \: : | 
SF 21 44 41 21 93 00050 P.AAF: .ASCII <5>\!AD!_\ : 
SF 21 44 41 21 05 00037 P.AAH: .ASCII <5>\!AD!_\ 3 
A 000350 P.AAI: .ASCII \:\ : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
OFFC 00000 ENTRY DBGSEXAMINE, Save R2,R3,R4,R5,R6,R7,RB,R9,—- ; 0862 
5E 20 ¢2 00002 SUBL2 Ryo. P F 
50 04 AC DO 00005 MOVL VERB_NODE, RO + 0893 
55 08 Aad 00 00009 MOVL § 8(ROJ, NOUN_NODE : 
51 04 Ad 00 9000p MOVL 4(RO). TYPE + 0894 
32 08 Al D0 00011 MOVL § 8(TYPE_NODEY, BASE_NODE : 0895 
5 08 A2 00 00015 MOVL § 8(BASENODE), MODE-NODE + 0896 
5B 01 Ad 9A 00019 MOVZBL 1(RO),~R11 + 0898 
" ae 33 0000 care ait it “egaene 
59 61 $9 00 : MOVB  (TYPE_NODE), NEW_TYPE 3 990 
6E 04 Al : MOVW 4(TYPE_NODES, NEQ SIZE : 090 
5A 62 90 90 9 MOVB (BASE RODE), RADIX ; 9904 
58 94 0002C CLRB =—« FORMAT_ONE : 0905 
53 (11 000 BRB 5$ : 0898 
04 5B 9 030 1$: CMPB R11, #4 : 0908 
4E 13 000 BEQL «6=s«SS$ F 
05 B 91 6 CMPB OS saR11, #5 : 0910 
E 42 BNEQ 2$ F 
59 4 90 00 3A MOVB #4, NEW_TYPE : 091 
ge 4 8 MOVW #4, NEWTSIZE > 091 
A 1 MOVB #1, RADIX 3: 0914 
58 19 4 MOVB #1, FORMAT_ONE : 0915 
B 11 00046 BRB 5$ : 0898 
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R11, #6 
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#4, NEW_TYPE 
#4, NEW-SIZE 
#1, RADIX 
e. FORMAT_ONE 
5 

Rit. #7 

#3, NEW_TYPE 
#2. NEW SIZE 


: 4 
* FORMAT_ONE 
AAC 

64706 
#3, LIBSSIGNAL 
#0. DBG$FLUSHBUF 
Ri, rT 
VAL_DESC 
nat -(SP) 
(NOUN_NODE) 

#3, DBGSPRIM_TO_VAL 
AL_DE 
4(RO), START_ADDRESS 

AL_DESC 

#13T, -(SP) 

Ve cNoun NODE) 

#3, DBGSPRIM_TO_VAL 


VAL_D R 
24 (RO) FINAL ADDRESS 


DDRESS 7 
#4, DBGSSRC_TYPE_PC_SOURCE 
V2 {NOUN_NODE) , PRM_DESC 


(NOUN_NODE), PRM_DESC 
12(NOON_NODE), END_DESC 


M_DES 
#1, DBGSCOLLECT 

#1, DBGSCOLLECT 
ND_DESC 

BRM_DESC, END_DESC 


9$ 

(PRM_DESC), #121 

(END_DESC), #121 
12(PRM_DESC), 12(END_DESC) 
NEW_TYPE, #128 
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ey 
fw 
PAM 


15$: 


AX=11 
DEBUG 


oS 
4(PRM_DESC), 


4(END_DESC) 
#1, 4TPRM_DE 
#1, 4(END-DE 
#°MCR 


2, PRIMARY. 
R 


#164240 

#1, LIBSSIGN 
#0, DBGSPUSH 
RO, MARK 
PRM_DESC 

#1, DBGSPRIN 
P.AAE 


Ol igsnze V4. 
«SRCIJD 

10$ 

+} 3 
SC), 9$ 
SC), 9$ 
ORDER 


AL 
_TEMPMEM 


TLIDENTIFIER 


P. AAD 
#3, DBGSPRINT 


#122, =(SP) 
PR 


#3, DBGSPRIM_TO_VAL 
FORMAT _ONE 


VAL_DESC, RO 


FORMAT_ONE , 

DBGSGL_SIGN 

RADIX, =(SPY 
L_DESC 


#4, #4, 5(RO) 
FLAG 


VA 
#3. DEGSPRINT VALUE 


#0, DBGSNEWL 
PRM_DESC 
#1, DBGSSAVE 


i, DBGSPOP_ 
#M<R3,RO> 
#2, PRIMARY_ 


NEW_SIZE, =( 
NEW_TYPE, =( 


END 
+¥ DBGSCHAN 
RO. ADDR_DES 
24 ADDR _BESC 


#1, DBGSSTA_ADDRESS_TO_REGDESCR 


RO 
24 (ADDR_DESC 
NEW SIZE, =¢ 


IRE 
LOC 
TEMPMEM 
ORDER 


FY_PRIMARY 


SP) 
SP) 


adh 
) 


) 


LAST_ADDR 
SP) 


BGLEVEL 


9 
1b-sep-1 4 01:30: AX-11 Bliss-32 V4.0-74 
1 ~3007} 38% 91:79:88 YoeBUG. SRC DBGLEVEL3.B832;1 
7E 9A 1f6 MOVZBL NEW_TYPE, -(SP) 
DD OO1F PUSHL - 
FBDA cf FB OO1F CALLS #3, DBGSCHANGE_DTYPE 
2 D MOVL R 
18 A2 dO PUSHL 24(ADDR_BESC) 
000000006 FB CALLS #1, DBGSSTA_ADDRESS_TO_REGDESCR 
4 ¢ XORL RDESC_ONE RO 
FFFFOOFC &F 0 : 1 BITL RO, #765284 
D 1 BEQL «-'16$ 
00028190 8F DD 0 19 PUSHL #164240 
000000096 09 1 Fe 1F CALLS #1, LIBSSIGNAL 
18 OA Oc AE : 0 6 16$:  CMPL AST_ADDR, 24(ADDR_DESC) 
D 1€ B BGEGU 
00028190 8F DD 00 p PUSHL 40 
000000006 1 FB 00 CALLS #1, LIBSSIGNAL 
4 14 A2 3 0 A 17$:  MOVAB gO {ADDR pgsc), R4 
D 03 Aa 9 CMPB (R4), 91 
Op 12 0024 BNEQ so} 
00028708 BF DD 0024 PUSHL #165848 
000000006 00 1 FB 0026A CALLS #1, LIBSSIGNAL 
08 A 7A BF 9A 00251 18%: MOVZBL #122. D SC_TYPE 
1 02 A& 91 00256 CMPB 2 (RS, 
06 13 0025A BEQL 198 
16 02 As 91 0025 CMPB Rd), #22 
§ 12 00 BNEQ 0 
08 A 83 8F 9A 00262 19$:  MOVZBL #131, DESC_TYPE 
000000006 0: 00 FB 00267 20$: CALLS #0, BBGSPUSH_TEMPMEM 
16 AE 50 00 00 6 MOVL RO. MARK 
52 DD 00 PUSHL ADDR_DESC 
000000006 00 01 FB 00274 CALLS #1, BBGSPRINT_IDENTIFIER 
00000000° cf 9F 00278 PUSHAB P.AAG 
1 pp 0281 PUSHL #1 
00000000° cf F 00283 PUSHAB  P.AAF 
000000006 00 3 FB 00289 CALLS #3, DBGSPRINT 
1¢ «AE OF 00 39 PUSHAB VAL_DESC 
0C AE DD 0029 PUSHL DESC_TYPE 
52 DD 00 36 PUSHL ADDR DESC 
000000006 00 FB 0029; CALLS #3, BBGSPRIM_TO_VAL 
B 95 0029F TSTB —- FORMAT_ONE 
A 13 002A1 BEQL = 21 
50 1C AE Dd 00 a3 MOVL - VAL_DESC, RO 
04 04 58 FO 002A INSV FORMAT_ONE, #4, #4, 5(RO) 
000000006 90 pp Ap 21$: PUSHL DBGSGL“SIGN_FLAG 
' 7E A 9A 0028 MOVZBL RADIX, “=(SPY 
24 Ar dD 86 PUSHL VAL_DESC 
900000006 00 03 FB 0028 CALLS #3, DBGS$PRINT VALUE 
000006 00 00 FB €9 CALLS #0. DBGSNEWLINE 
14 AE DD 002C PUSHL RK 
000000006 00 1 FB OO2CA CALLS #1, DBGSPOP_TEMPMEM 
4 DD DI PUSHL R4 
000000006 90 1 F D CALLS #1, DBGSDATA_LENGTH 
, ¢ DA ADDL ~R 
AE 50 8 ( D DIVLS #8. RO, LENGTH 
F 12 O02 BNEO 
00028783 BF DD O02E PUSHL #165811 
000000006 00 1 Fe EA ALLS #1, LIBSSIGNAL 
0 1 Fi RB 28$ 
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57 18 «OA 04 Ag C1 F3 228: adoLs tL NGTH 4(ADDR_DESC), NEXT_ADDR 
OC A 5 pi F CHL XT_ADDR, LAST-ADDR 
44 A 002FD BGTRU 28S 
18 A i 57 p i ROVE NEXT VADDR. 24 (ADDR_DESC) 
wo HY He fo. a2 
7 4 BNEQ * fers 
7 DD f 23$: PUSHL NEXT ADDR 
000000006 00 1 Fe ff CALLS #1, BeGS1S_1T_ENTRY 
: 1 BLBC = RO. 24 
02 AG M7 18 nove #23, 2(R4) 
02 AG % 90 348: MOVB #22, 2(R4) 
CS ar ee 
000000006 90 3 F 9 CALL ri BBGSINS_DECODE 
64 i AS Susu WEATAADOR, RO, (R4) 
4 DD 00336 268:  PUSHL 
0000v CF 1 Fe 0 CALLS #1, FIX_UP_LENGTH 
64 0 6 0 MOV (ROT 
FF24 31 0 4 37s: BRW 208 
: dD 8$:  PUSHL ADDR_DESC 
000000006 00 FB 0034 CALLS #1, BBGSSAVE_LOC 
2 11 c BRB 30$ 
DD 0034E 298 PUSHL PRM_DESC 
000000006 09 FB 0 30 CALLS “i, DBGSPRINT_IDENTIFIER 
DD 0035A PUSHL m_D 
ae HE a 
13,1 6 BNEQ | aliciees 
F 04 hi £5 0 69 BLBC  4(PRM_DESC), 31$ 
E ah PA Bie ROvEBL RABIN, -=(SP5 
000000006 00 000g Fe 0 a oe CALLS #2, DBGSPRINT _AGGREGATE 
00000000° FF $f 037¢ 35 PUSHAB BAA 
00000000' FF oP 8 be PUSHAB P.AAH 
000000006 00 3 FB 0 A CALLS #3, DBGSPRINT 
rE 00394 Movie NEWTTTEE. ~CSP> 
DD 00397 PRM“DESC. 
F73C—OOCCEF 99 CALLS a3, DBGSCHANGE_DTYPE 
1¢ AE RO, VAL_D 
80 BF 31 003A ROVE FORMAT ONE, EGRMAT _TUO 
10 1 AA BEQL 33 ides 
7E 10 AE 14 ¢ aC ADDLS # 5. VAL_DESC, -(SP) 
DD 0038 PUSHL PRM_DESC 
000000006 00 re BS CALLS #2, DBGSSAVE_LOC 
9 BC 32 TSTB RMAT_ONE 
4 1 f NEQ 
01 A 9 C MPB = RADIX, #1 
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AX-11 Bliss-32 ve G28 
DEBUG. SRC JDBGLEVELS.832;1 


om SC, RO 
gin. ni 
VAL_DESC, RO 
GSREG_VALUES+64, R1 
(RO), R1 
vac Bese RON” 

2R0) #22 
VAL_DESC 
#122, -(SP) 
43. DBGSPRIM_TO_VAL 
#1, DBGSDO_MAPPING 
FORMAT _TwO 
VAL_DESC, RO 
FORMAT_TWO, #4 
DBGS$GL"“SIGN_FLAG 
RADIX, ~=(SPY 
VAL_DESC 
a, DBGSPRINT_VALUE 
#0, DBGSNEWLINE 

(NOUN_NODE), NOUN_NODE 


#4, 5(RO) 
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L3 18-se “1 AX-11 Bliss-32 V4.0-74 P 
yore ~3ep-198e $2:19:65 — EOkaue. SacSoeacever$.0%3;1 aoe 
; ' 1 ’ GLOBAL ROUTINE DBGSNEXTLOC(PRM_DESC) = | 
:1 1 i FUNCTION 
3 : 1 } : ween ca enw ean wren mrnaoarse ne wna ow 
71 1 i INPUTS 
:1 1169 1 | OUTPUTS | 
4 1 5 11 1 ' Peete senor ow senor neo ee ome ewe ew | 
s : 132 1! | 
: 4 2 1 BEGIN 
iy 1198 | 
; } : 1178 PRM_DESC: REF DBGSPRIMARY; ! Pointer to Primary Descriptor | 
:1 117 CAL 
:1 199 BYTE_OFFSET, | 
: 1055 11 LENGTH 
: 1 1181 REG DESC: DBGSREGDESCR, | 
:1 3 11 ; STATU 
; ! 3 i VAL_DESC: REF DBGSVALDESC; | 
:1 1185 | 
. ns 
P+ ee ee | 
31 11 i 
:1 118 STATUS = MODIFY_PRIMARY(.PRM_DESC,0); | 
3 1065 1190 IF .STATUS THEN-RETURN .PRM BES: | 
; i 1191 If ,DBGSGL_ CURLOC_VMSDESC NEQ | 
; 1068 1198 BEGIN | 
; 1969 1194 VAL_DESC = DEGSMAKE “VAL L ABESC( 0B -DBGSGL | SuRLoc ghMSDESC, £ ARGS. V_VALUE_DESC); 
> 1070 1195 VAL-DESCEDBG 6$8_DHD SCEDBG DHDR 
: 1071 1196 VAL ~DESCCDBGSL~ -DHDR ~$4M1003 = PRA pest paces . ~DHDR -$4mi06): | 
31 ze 119 END 
; 107 1198 | 
WR UG cry | 
i 1076 1 a} IF .STATUS EQL 2 THEN SIGNAL (DBGS_NOSUCC) | 
+ 107 1 DBGSPRIM_TO_VAL(.PRM_DESC, DBGSK_0J_VALUE “bese, VAL_DESC); 
; i 78 END; 
; ! 1 5 IF _(.VAL_DESCCDBGSB_VALUE CLASS] EQL DSCSK_CLASS_UBS) 
; i : SIGNAL (DBG$_NOSUCC); 
: 1 1 LENGTH = (DBGSDATA -LENGTH(VAL_DESCCDBGS A_VALUE_VMSDESC}) = 1)/2BPUNIT ¢ 1; | 
> 1085 1 19 REG_DESC = DBGSSTA-ADDRESS_TO-REGDESCR(.VAL_DESCLDBGSL “VALUE _POINT NTER + | 
: Facies Pest NEQ 07 
31 1 ig BEGIN 
; 1 1214 BYTE OFFSET = 4 REG_DESCEDBGSB_REGD_REGNUM) 
+1 1215 ;REG DESCLOBGSV REGD ~OF F SE 
3 1091 1 1g LENGTH + .OBGSGW_DFCTLENG; | 
+ 1092 121 IF (.BYTE_OFFSET GTR 16*ZUPVAL) ARD 


H 9 | 
16-Sep-1 :30: AX-11 Bliss-32 V4.0-74 P 7 
1e285b-1382 F3:F9:8S = HESS Bhi ssaeeever $7693. 1 aoe 3) | 

3; 1 1218 4 (( DBGSGW_ DF i NEQ 2) OR teat + 1 DFLTLENG NEQ 4) OR 

; : 2 } 1 (.BYTE_OFFSE Q (16*ZUPVAL + .DBGSGO_DFLTLENG))) 

; i SIGNAL (DBG$_NOSUCC); 

71 1 END; 

3% 1 

311 1225 

3 11 1 § ! Initialize the Value Descriptor to VMS descriptor class Z (unknown) and 

711 § 1 ' set the geincer to the next location to be the current location plus the 

$ + : H length of the current object. 

: 1105 1 VAL_DESC DBGSB_VALUE_CLASS] = DSCS&K GLASS 7; | 

; 1 ! VAL-DESCCDBGSL-VALUE_POINTER] = .VAL_DESCCDBG$L_VALUE_POINTER] + .LENGTH; 

:11 1 

3 11 1 ! If the data type is instruction or entry point, determine the type of the 

: 1110 1235 ! next location by seeing if it is an instruction or entry mask. Also com- 

3 1133 ; pute its length by interpreting the instruction at that location. 

: Wg 1238 if (.VAL_DESC DBGSB_VALUE _OTYPE] EQL DSCSK_DTYPE_21) OR 

3 171146 1239 (,VAL_DESCCDBGSB8_VALUE_DTYPE] EQL DSCSK_DTYPE_ZEM) 

ett; 15¢9 THEN BEGIN 

: Wi? ; tg dl DBGSIS_IT_ENTRY(.VAL_DESCCDBGSL_VALUE_POINTER)) | 

; 1119 1244 VAL_DESCCDBG$B_VALUE_DTYPE] = OSC$K_DTYPE_ZEM 

> 1121 1246 ELSE 

: i ¢ 1 44 VAL_DESCCDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_ZI; | 

: 1124 1249 VAL DESCLDBGS_VALUE LENGTH) = 

3; 1125 1250 DBGSINS Pp coos (WA PESCESOSS, VALUE POINTER]. FALSE) - 

3°11 $ 1 2) -VAL_DESCCOBGSL_VALOE_POINTERJ; 

at 1588 ey 

: 11 1254 

3; 11 1 2¢ ! The next location is not an instruction or entry mask. It is thus a | 

3 1131 1 3$ ! data object and we set up the Value Descriptor accordingly. | 

1138 34 ELse | 

> 11 125 BEG! 

3 1135 1260 VAL_DESCCDBGSB_DHDR_FCODE]. = RSTSK_TYPE_DESCR; 

311 1261 VAL_DESCEDBGSV_DHDR_ FORMAT] = OQ; 

311 1 6¢ VAL-DESCEDBG$B-VALUE_CLASS] = DSC$K_CLASS_S; 

371 126 VAL_DESCCDBGSB_VALUE_DTYPE} = -DBGSGC_DFLTTYP; 

: 11 1264 VAL~DESCCDBG$W~VALUE-LENGTH] = .DBGSGW"DFLTLENG; 

3 be ' 65 END; 

: 1148 1 $9 . 

: ste? ' 6 : Return a pointer to the Value Descriptor for the next location. 

; 1145 1 76 RETURN .VAL_DESC; | 

: 1166 127 

31146 1272 END; 
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Save R2,R3,R4,R5,R6 
» R6 


-(§p) 
PRM_DESC, R2 


#2, MODIFY_PRIMARY 
TATUS, 1$ 


GSGL_CURLOC_VMSDESC, R1 
#131, -(SP) 
' , DBGSMAKE_VAL_DESC 
3(R2), 3(RO) 
ices, 12(RO) 
TATUS, #2 


#165912 

#1, LIBSSIGNAL 
#131, -(SP) 

43. DBGSPRIM_TO_VAL 
OCRD) R3 
(R3), #1 


$ 
#165912 
aye LIBSSIGNAL 


#1, DBGSDATA_LENGTH 
#8, RO 
1(RO), LENGTH 
24 (R25 
#1, DBGSSTA_ADDRESS_TO_REGDESCR 
R 6_DESC 
#8, #8, REG_DESC, R 
#0. #2. REG DESC, R 
Ri}, RO 
H, RO, R 
G$GWDFLTLENG, RO 
BYTE OF 
VE OFFSET, #64 
RO, #2 
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18 


3; Routine Size: 308 bytes, Routine Base: 
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(RO 
gyte_ofrser, RO 


#165912 
£ IBSSIGNAL 


1 
NGTH, 24(R2) 
Mae 
(R3), #23 
1$ 
4(R2) 
1, DBGSIS_IT_ENTRY 
RO. 9$ 
tt 2(R3) 
i $ 2(R3) 
-(SP) 
24(R2) 
#2, DBGSINS -PECODE 
ae » RO, (R3) 
6(R2) 
ato ak? 
pBéscu” _DFLTTYP, 2(R3) 
DecSi7 DFLTLENG, (R3) 


ne es a sb as I 
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ifoseo-196e 1:80:26 YMGNT etiaga2 ve-ge7eg | age, 0) 


| 
3 1398 } 7 1 pce ROUTINE DBGSPREVLOC(PRM_DESC) = | 
: 11 1 , i i FUNCTION 
3 11 1 $ 1 This routine finds the Sodas + a Location’’, denoted in the command | 
3 11 le77_ 1 i nn ng as ZPREVLOC or *. It accepts ? primary Descriptor for the 
3 171 1278 1! current location as input and returns e fher @ rimary Descr oer o 
; 1155 1 1! a Volatile Value Descriptor for the pre prety as evsput 
3 11 1 1! the current location 1s, @ structured bject of some sort ( | 
3 11 1 1! array), MODIFY_PRIMARY is gelies to f the logical predecessor. and 
3 11 3 1 § 1! the nod fied Prinary te ptor {s returned. Otherwise, this routine 
3 171 1 1! determines the previous instruction location A. the previous data 
3 1399 1 : } H location and returns a Volatile Value Descriptor for that Be sries. | 
: 116 1 1 | INPUTS 
3; 11 4 1 1! PRM_DESC - . pointer to the input Primary Descriptor for the location 
3 11 : 1 ; whose logical predecessor is to be computed. 
; i16 i 90 1! OUTPUTS 
3; 116 1291 1! A pointer to the Primary Descriptor or Volatile Value Descriptor for 
3; 1168 1 35 1! the Logical redecessor location is returned as this 
: 1169 1 1! routine's value. | 
: 1170 1294 1! 
: We i 36 ! BEGIN | 
: 117 129 
3 1174 1 ss 
3 1176 : 86 MAP PRM_DESC: REF DBGSPRIMARY; ! Pointer to Primary Descriptor 
117 1301 LOCAL 
3 HEA | 1 4 ADDRESS, ! Address of the current location - 1 
: AE : re ! Dummy routine argument | 
: 1181 1305 INE ' Line number of the Last instruction 
3 18g 1 Be NEW_ADDR, ! Addess of the current instruction 
3; 118 130 OLD_ADDR, ‘ adeross of, revious instruction | 
: 1184 1308 PC_BEG, ' Be eqinnt me of current source Line 
3; 1185 1309 PC_END, : ing PC of current source Line 
3 1138 1310 STATUS, | 
3 11 1311 STMT ' Statement number of Last instruction 
; 1188 1 \§ SYMID: REF RSTSENTRY, ! The SYMID of the nearest preceding 
3 1199 131 ! symbol (used for instructions) 
3 11 1314 REG_DESC: DBGSREGDESCR 
3 1191 1315 VAL-DESC: REF DBGSVALOESC; ! Pointer to returned Value Descriptor | 
Si et 
> 119% 131 | 
3 1195 1 19 ! If the input Primar poscrioter describes a structure object, Like an | 
3 1198 1320 i array or record, | tet MO Y_PRIMARY modify the Primary Descriptor to 
3 HB 4 ' 1 describe the logical aod tN ta Then return that Primary. 
3; 1199 1 § STATUS = MODIFY_PRIMARY(.PRM_DESC, 1); 
g : 4 : ¢ IF .STATUS THEN” RETURN .PRM _BESC; 
:1 1 
3: 1 oe 1 $ ! If there is a defined “current location’’ (ZCURLOC), then use the Primary 
3: 1206 1 $ i or Value descr ptor for that entity to set up a Volatile Value Descriptor 
3; 1205 1 ' for the previous location. 
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iF ,DBGSGL_CURLOC_VMSDESC NEQ 0 


EGIN 
VAL_DESC = DBGSMAKE_VAL_DESC(.DBGSGL_CURLOC_VMSDESC, DBGSK_V_VALUE_DESC); 
VAL-D s¢f0e6 “DHDR=LANE} = -PaN-DESCEDBGED_DHDR_ (ANG): 

VAL “DESC DBGSL-DHDR-SYMID0] = .PRM-DESCLDBGSL-DHDR-SYMID02; 


! But if no current location is defined, give an error message or use the 
: input Primary Descriptor to set up the previous location descriptor. 


ELSE 


BEGIN 
IF .STATUS EQL 2 THEN SIGNAL(DBG$_NOPRED); 
DBGSPRIM_TO_VAL(.PRM_DESC, DBGSK_J_VALUE_DESC, VAL_DESC); 


! There is no logical successor for an unaligned bit string, so for that 
: case we signal an error. 


if - VAL _DESCCDBG$B_VALUE_CLASS] EQL DSC$K_CLASS_UBS 
SIGNAL (DBG$_NOPRED) ; 


LENGTH = (DBGSDATA_LENGTH(VAL_DE 
REG_DESC = DBGSSTA-ADDRESS_ TO-RE 
IF X-REG_DESC NEQ 0) AND (7REG_D 


SIGNAL (DBG$_NOPRED) ; 


SCCDBGSA_VALUE_VMSDESCJ) - 1)/%BPUNIT + 1; 
GDESCR(.VAL_DESCCOBGSL_VALUE_POINTER]); 
ESC<W_> LSSO (2X°00B4°~+ .DBGS$GW_DFLTLENG)) 


! Initialize the DTYPE of the logical predecessor to be type Z (unknown) 
! and assume its address is one byte before the current location. This 
} may get changed below if appropriate. 


VAL DESCLDBGSB_VALUE CLASS] = DSC$K CLASS_7; 
ADDRESS = .VAL-DESCCDBGS$L_VALUE_POINTER) = 1; 


' If the type of the current object is instruction or entry mask, try to 
. locate the previous instruction. 
IF (.VAL_DESCCDBG$B_VALUE_DTYPE] EQL DSC$K_DTY 
meen eA PESE DBG$B_VALUE_DTYPE] EQL DSCS$K"DTY 
BEGIN 
OLD_ADDR = .ADDRESS; 


ry to symbolize the current location - 1 byte (the contents of 
) to find the nearest routine, block, or label preceding the 
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16-Sep-1 230: AX-11 Bliss-32 V4.0- 
13-808-}382 94:79:88 DEBUG. SRC IJDBGLEVELS. 
! current instruction. If no such symbol is found, we just leave the 


: address as the current instruction address - 1; there is no way we can 
; locate the true previous instruction. 


STATUS = DBGSPC_TO SYMID(.ADDRESS, SYMID); 
oe AND T.SYMID NEQ 0) 


N 
BEGIN 


! A symbol preceding the current instruction was found. If this 

! is an instruction symbol (a routine, block, or label), save its 

! address for the forward scan to the desired instruction. However, 
‘ a line number grecseding the current instruction can be found, 
use that address instead for a shorter forward scan. 
I 


F (.SYMIDCRSTSB_KIND] EQL RSTSK_ROUTINE) OR 
(.SYMIDERSTSB_KINDJ EQL RSTSK_BLOCK) OR 
— RSTSB_KINDJ EQL RSTSK_LABEL) 


BEGIN 
OLD_ADDR = .SYMIDCRSTSL_STARTADDR); 
= 


DUMMY = .SYMID; 
IF DBGS$PC_TO_LINE_LOOKUP( ADDRESS 
LINE, STMf, PC_BEG, PC_END, DUMMY) 


THEN 
OLD_ADDR = .PC_BEG; 
END; 
END; ! End of code if we found a symbolization 
! We now some address where to start the forward scan that looks for 
! the previous instruction. Scan forward from that address until the 
desired previous instruction is found. 
WHILE TRUE DO 
BEGIN 
NEW_ADDR = DBGSINS_DECODE(.OLD wit FALSE); 


IF [NEW_ADDR GTRA ADDRESS THEN EXIfLOOP; 
OLD _ADDR = .NEW_ADDR; 


! Fill the address and length of the found previous instruction into 
! the Value Descriptor. Also determine if this location is an entry 
} mask--if so, set the DTYPE to be ZEM instead of ZI. 


VAL_DESCCDBGS$L_VALUE_POINTER] = .OLD_ADDR; 

VAL“DESCCDBGSW-VALUE-LENGTH] = .NEWTADDR = .OLD_ADDR; 

VAL~DESCCDBGSB- VALUE DTYPE] = DSCSK_BTYPE_ZI: 

IF DeGSiS_1T EATRY(.OLD_ADDR) 
VAL_DESCCDBG$B_VALUE_DTYPE] = DSCSK_DTYPE_ZEM; 


END ! End of code for previous instruction 
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! The current location is not an instruction location. We therefore set 
up the Value Descriptor for a data object. 


| 
| 
| 
| 
| 
H | 
ELSE 
| 
| 


BEGIN 
VAL_DESCCDBG$B_DHDR_FCODE]. = RSTSK_TYPE_DESCR; 
VAL“DESCCDBGSV-DHDR-FORMAT] = 0; 
VAL-DESCCDBG$B-VALUE_CLASS] = DSC$K_CLASS.S; 
“DESCEDBG$B_VALUE_DTYPE] = .DBGSGC_DFLTTYP; 
VAL-DESCEDBGS$W_VALUE-LENGTH]_ = .DBG$GW DELTLENG: 
DESCCDBGSL-VALUE-POINTER] = .VAL_DESCCDBGSL_VALUE_POINTER] - .LENGTH; 


ViFWN—OOONOUS WhO 


! Return a pointer to the Volatile Value Descriptor for the previous 
1 location. 


| 
| 
} 
RETURN .VAL_DESC; | 
END; 
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MEW OOONG NEW" OOONOUNS 
< 
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03FC 00000 -ENTRY DBGSPREVLOC, Save R2,R3,R4,R5,R6,R7,R8,R9 = 1273 
59 000000006 00 9€ 9000¢ MOVAB DBG$GW_DFLTLENG, R9 : 
$f 000000006 $9 5 $55 SSI : 
01 oD 0013 PUSHL #1 : 1323 
52 04 AC DO 0001 PRM_DESC, R2 : 
52 DD 00019 PUSHL R : 
0000v CF 0 FB 0001B CALLS #2, MODIFY_PRIMARY : 
57 5 D0 000 9 MOVL RO, STATUS F 
03 57 : 000 BLBC STATUS, 1$ + 1324 
014D 31 00026 BRW $ F 
50 000000006 00 09 a8 9 1$ MOVL DBGSGL_CURLOC_VMSDESC, RO ; 1331 | 
7E 83 er 9A 09 9 MOV ZBL #131, (SP) : ae 
000000006 00 g if 900 CALLS ne. DBGSMAKE_VAL_DESC : 
4 fF MOVL R VAL_DESC 3 
03 A 03 A 4g MOVE 3(R2), 3(RO) ; 1335 | 
0c AO oc A 00 004 MOVL ecr2s, 12(RO) : 1336 
1D 1 0 4C BRB 4 : 1331 
02 5 D1 be 23 CMPL TATUS, #2 : 1345 
9 12 6 5 BNEQ $ ; 
00028810 8F DD PUSHL #165904 : | 
68 1 FB 00 CALLS #1, LIBSSIGNAL ; 
E pp 6 C 3$ PUSHL SP > 1346) 
7E 83 BF 9A MOVZBL #131, -(SP) : 
000000006 9 § FB CALLS #3, DBGSPRIM_TO_VAL ; | 
6 p 068 4$: MOVL AL DESC R2 > 1353 
4 14 Ad 9E 0006E MOVAB 20(R2), R4 : 


ee \ 


10 
GLEVEL3 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-74 Page 44) 
Mite 12-80-1384 94:79:88 DEBUG. SRC IDBGLEVEL 3. $3.1 . (10) | 
| 
0D 03 A& 91 00072 CMPB (RG), #13 : 
9 73 org BNEQ af : | 
00028810 8F DD 0007 PUSHL #165904 + 1355 
wt 1 oO O08 5$ oe.) ce ee : 1360 
000000006 00 1 FB 009 CALLS #1, DBGSDATA_LENGTH : | 
0 D A DECL sor ; 
50 0 g6 O8C DIVL2 #8, RO : | 
56 01 AO SE 0008F MOVAB 1(RO), LENGTH : | 
18 A2 DD 00093 PUSHL + 1361. 
000000006 00 9 FB 00096 CALLS #1, DBGSSTA_ADDRESS_TO_REGDESCR : | 
0 ? 0090 TSTL REG_DESC : 1362) 
1 O9F BEQL 6 : 
51 69 3¢ O0A1 MOVZWL DaGSGu DFLTLENG, R1 : | 
1 00B4 cI E 000A4 MOVAB 180(R1J, R1 : 
51 50 10 0 ED 000A9 CMPZV #0, #16, REG_DESC, R1 : 
09 1E 000A BGEQU : 
00028810 8F DD 0008 PUSHL #165904 > 1364, 
68 01 FB 00086 CALLS #1, LIBSSIGNAL : | 
03 AG 94 90089 6$: CLRB R + 1371) 
55 18 A2 01 cs 00BC SUBL3 #1, 24(R2), ADDRESS + 1372) 
16 02 ad 91 000C1 CMPB (R4), #22 : 1378) 
09 13 000C5 BEQL $ : 
17 02 as 91 000C7 CMPB g(R4), #23 + 1379 
03 13 000CB BEQL $ ; 
008A 31 000CD BRW 11$ : 
53 55 DO 00000 7$: MOVL ADDRESS, OLD_ADDR + 1382 
04 AE 9F 00003 PUSHAB SYMID : 1391. 
55 DD 00006 PUSHL ADDRESS : | 
000000006 00 02 FB 00008 CALLS #2, DBGSPC_TO_SYMID : 
57 50 DO O00DF MOVL RO, STATUS : 
42 57 €9 OO0E2 BLBC STATUS, 9$ + 1392) 
04 AE D3 000E TSTL SYMID : 
3D 13 000E8 BEQL O98 : | 
50 04 AE DO OOOEA MOVL SYMID, RO : 1403, 
14 AO 94 OO0EE CMPB =s-s«-20(ROS, #2 : 
OC 13 OOOF BEQL =s«8S : 
03 14 AO 91 000F4 CMPB =s--20(RO), #3 : 1404 | 
06 13 000F8 BEQL = 8$ ; 
04 146 AO 91 OOOFA CMPB =. 20(RO), #4 > 1405 
27 if; OO0rE BNEQ 9$ ; 
53 18 AO DO 00100 8s: MOVL  § 24(RO), OLD_ADDR + 1408 | 
08 AE 50 DO 00104 MOVL RO, DUMMY : 1409 | 
08 AE OF 1 8 PUSHAB DUMMY > 1410. 
10 AE 9F 001 PUSHAB PC_END ; | 
18 AE 9F O010E PUSHAB PC~BEG : 
20 AE 9F 00111 PUSHAB AT : 
28 AE 9F 00114 PUSHAB E : 
55 DD O17 PUSHL ADDRESS : 
000000006 90 06 FB o119 CALLS #6, DBGSPC_TO_LINE_LOOKUP : 
3 10 AE DO 001 3 MOVL § PC ‘BEG, OLD_ADDR > 1413. 
7E D4 00107 98 CLRL = = (SP) : 1426. 
53 DD 00129 PUSHL OLD_ADDR : 
000000006 99 9 FB 1 CALLS #2, DBGSINS_DECODE : 
D1 001 CMPL NEW_ADDR. ADDRESS : 1427 
05 1A 001 BGTRU 108 : 


53 50 
8 i 
2 i 
000000006 23 97 
. 9 
% i 
Bcc - 
02 A& 000000006 : 

64 
18 A2 56 

50 


; Routine Size: 378 bytes, Routine Base: DBGSCODE + 
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10$: 


11$: 


12$: 
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MOVL NEW. ADDR, OLD_ADDR 

BRB 9 

MOVL_  OLD_ADDR, 24(R2) 

SUBW3 OLD- ADDR, NEW_ADDR, (R4) 

MOVB #227 2(R4) 

PUSHL i ADDR 

CALLS _e DgGSIS_ IT_ENTRY 

BLBC 

MOVB ; f. (R4) 

BRB 12$ 

MOVB #3, 6(R2) 

BICB2 #240 5(R2) 

MOVB #1, $(R4) 

MOVB DBGSGL_DFLTTYP, 2(R4) 

MOVW DBGSGWIDFLTLENG, (R4) 

SUBL2 LENGTH; 24(R2) 

- poe: 


"633, :1 
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5 1666 } ROUTINE MODIFY PRIMARY(PRM_DESC: REF DBGSPRIMARY, DIRECTION) = 
; 1488 1 i FUNCTION 
3 138 1! This routine takes a Pr soecy Descriptor and attempts to find 
3 14 Y ie: the bog ical successor (DIRECTION=0) or logical predecessor 
3 1471 1! (DIREC s med For example, the Primary for X(0) might 
3 1376 : be modified to be a Primary for x(1). 
; 1474 1 | INPUTS 
3 1475 1! PRM_DESC = pgings to a Primary Descriptor 
3 1678 1! DIRECTION = if 0, we want the logical successor. 
: \of } } if 1, we want the logical predecessor. 
: 1299 1 | ouTPuTS 
3 1480 1! 1 is returned if this routine is successful, and 
; 1481 1! the Primary pointed to by PRM_DESC is modified. 
: 14 ¢ 1! If this routine fails, it returns 0 or 2. 
: ieee 
; 1485 BEGIN 
: 1 Se 
; 1488 PRM_DESC: REF DBGSPRIMARY; ! Pointer to input Primary Descriptor 
; 1490 BUILTIN 
3 8 1491 INSQUE, 
3 9 1638 REMQUE; 
3 0 149 
3 71 1494 LABEL 
; ie: 1495 PASS, 
3 7 1039 3 
: r 1298 LOCAL 
: 6 1499 COMP_FLAG: BYTE, 
; A 1300 ERROR_STATUS, 
: 1379 1308 ROOT_ADR, 
3 150 $UB_RODE : REF DBGSPRIM_NODE, 
3 1 1504 SYM_NAME: REF VECTORC BYTE); 
3 ae 1505 
: 1384 1369 
: 1385 1508 ' Save away the “current” primary. This is used by our stack 
3 1509 : machine code in RSTACCESS to evaluate the ‘‘push inner record 
: 1319 address’’ and ‘‘push outer record address’’ instructions. 
; 9 1312 DBGSGL_CURRENT_PRIMARY = .PRM_DESC; 
: 1391 1514 ' Give up if the descriptor is not a Primary we can modify 
3 4 1313 : to get logical successor or predecessor. 
; 94 1319 if (PRM DESCCDBG$B8_DHDR_TYPE) NEQ DBGSK_PRIMARY_DESC) OR 
3 1395 1318 ((, PRA_DESCCDBGS8_DHDR_KIND] NEQ RSTSR_DATA) AND 
3 38 151 (. PRM DESE DBGS$B_DHDR_KINDJ_NEQ RSTSK_TYPCOMP)) OR 
3 144 1331 (.PRM_BESC D0BG V_BHDR_SUBREF J) 
: 1399 1522 RETURN 0; 
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ERROR STATUS = 0; 


WHILE TRUE DO 
SS: BEGIN 


uw 


! This Loop steps to the Last/next component in the data aggregate. 
! In most cases th $ loop is executed exactly once. However to deal 
: Sreserty with variant records it is sometimes me cg to repeat 
! pte ntire process until we find a valid component. Examples of 
! invalid components are : 

: An anonymous (zero-length) PASCAL Tag Field 

} A VARIANT SET with no TAG, or an out-of-range Tag Value 


a ae SUB_NODE = PRM_DESCCDBGSA_PRIM_FLINK); 
'¢ 
! Scan the entire primary backwards until we find a group 


! item (Array, Record or Variant) which has more components 
left in it. 


WHILE (SUB_NODE = .SUB_NODECDBGSL_PNODE_BLINK]) NEQ .ROOT_ADR 
DO IF .SUB_NODECDBG$V-PNODE EVAL] THEN 
SELECTONE . SUB_NODE COBG$B_PNODE_FCODE) OF 
PRS TSK TYPE ARRAY): 


LOCAL S,S_VECT : REF DBGSPRIM_NODE_SUBS; 


ad ed tt 
" 
ad 


BWNAVEWN “OC OONOUE WO 


! The following code increments or decrements the 
' subscript vector. This must be incremented Like 
! an odometer in a car; that is, normally we 

! just increment the Last one, but if that is 

' at its upper Limit then set it back to the lower 
! Limit and attempt to increment the next one, and 
! so on. We also have to take into account orvaye 
' that are stored in column order (first subscript 
varies fastest). 
E 
$ 
I 


WwnN— 


w 


RROR_STATUS = 2; 
VECT = SUB NODE CDBGSA PNARR_SVECTOR); 
RCR DIMENSION FROM 1 TO .SUB-NODECDBG$8_PNARR_DIMCNT) DO 
S = (IF .SUB_NODECOBG$V_PNARR_COLUMN] 
THEN - DIMENSION -1 
ELSE .SUB_NODECDBG$B_PNARR_DIMCNT) = .DIMENSION); 


 peihiome EQ. 0 ! 0 = NEXTLOC, 1 = PREVLOC 


Logical successor. 
BEGIN 
Check for being at the upper bound. 
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{i eg reVECTE-S DOGSL _PNSUB_SVALUE3 EQL .S_VECTC.S,DBG$L_PNSUB_UBOUND) 


ncrement "Yout giy® nee warning 
ee we are “te the upper bo 
For example i ng an tinciotecsl 


array from 
successor of Gs: efit 
x(4) but we give. an 
ou have a Passt the 
ut if X were 2-dimensiona 3 


then return X(2,1) and not xX 

Or if X were a record of srrays, 
and X. AC ) was the upper bound, t 
you would want to go to the 5 


we want the logical 
© ahead and return 
ormet renal saying 


3 by 1:3, 


record conpanent » Say X.B, instead of 


at 
pIRENston EaL DIMCNT and BLINK EQL 
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and you want the successor of sah 
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reason for the checks for 


F ¢. gee tty ° -SUB_NODECDBG$B_PNARR_DIMCNT)) AND 


NODE COBGSL_PNOBE _BL INK 


sects 
SIGNAL (BGS SUBSCRNG 
S VECTC.S,DBGSL “PNSUB_ Sonlte 
LEAV shee 
END 
ELSE 
Set back to lower bound. 
$_VECTC.S$,0BG$L_PNSUB_SVALUE) 


BEGIN 
Increment and leave loop. 


Pewee Seni 2S. soem, -PNSUB_SVALUE] = 
E 


: Logical predecessor. 


UPLIT tbe ae 7: 


EGL .ROOT_ADR) 


S_VEC TE, s BBESL. bngue SvaLuES 3 


-S_VECTC.S,DBGS$L_PNSUB_LBOUND) 


-S_VECTC.S,DBGSL_PNSUB_SVALUE] + 1; 


BEGIN 
IF 9=VECTC.SDBGSL_PNSUB_SVALUE] EQL .S_VECTC.S,DBG$L_PNSUB_LBOUND) 
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If we have no more but givin s then go ahead 
and Waecronent it y alk v gine . working 
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give an vei ofmat ional saying 


yout ‘nye ve cident er ar by 1:3, 


and you went he a grecncecees gt xe x(3,1 
then return X 

That is the ald or this chish” for 
DIMENSION EQL DIMCNT. 


F (. DIMENSION Fey, pus NODECDBGS$B_PNARR_DIMCNT)) AND 
THe SUB=NODELDBG PNOBE_BLINK) EQL .ROOT_ADR) 
BEGIN 
SIGNAL (DBGS$_SUBSCRNG UPLIT BYTE(ZASCIC ‘lower’), .DIMENSION 
5 vecieos, DBGSL_PNSUB_ Seatut = .S_VECTE.S,DBGSL_PNSUB_SVALUES = T; 
LEAVE SCAN; 
END 
ELSE 
Set back to upper bound. 
so S_VECTC.S,DBGSL_PNSUB_SVALUE] = .S_VECTC.S,DBG$L_PNSUB_UBOUND] 
ELSE 
BEGIN 


Decrement and leave loop. 


§ VECTC.S,DBGSL_PNSUB_SVALUE] = .S_VECTC.S,DBGSL_PNSUB_SVALUE) - 1; 
LEAVE SCAN; 


END; 
END; 
END; 
END; 
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ERROR_STATUS = 2; 

i. “DIRECTION EQi 0 ! 0 = NEXTLOC, 1 = PREVLOC 
: Logical successor. 
BEGIN 


! If we can go to the next component, do so and exit 
the loop. 


IF; SU8-NODECDBGSU_PNREC_ INDEX LSSU .SUB_NODECDBGSW_PNREC_NCOMPS) 


# 10 
L3 16-Sep-1984 01:30: AX-11 Bliss-32 V4.0-74 Pa 0 
voce 1 350-138e 93:79:88 — Hokeuc. ShcSbaacever $089.1 9433 
BEGIN 

i 36 SUB_NODECDBGSW_PNREC_INDEX] = .SUB_NODECDBG$W_PNREC_INDEX] + 1; 
7 LEAVE SCAN; 

7 9 END; 

75 9 END 

6 ELSE 

m8 Logical predecessor. 

: BEGIN 
§ 5 ! If we can get to the previous component, do so 
and exit the loop. 
5 iF .SUB_NODECDBGSW_PNREC_INDEX] GTRU 1 
1 THEN SEGIN 
1 SUB_NODECDBGSW_PNREC_INDEX] = .SUB_NODECDBG$W_PNREC_INDEX] = 1; 

14 } LEAVE SCAN; 

91 1 END; 

a 1 END; 

9 1 COTHERWISE):0; 

Be : TES; 
336 1 ! If we fall through to here without succeeding in incrementing 

59 ! or coprenens 8 anything, then error status will still be 
4 } 0 or 2 and we return it, indicating we did not succeed. 
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600 RETURN .ERROR_STATUS; 

601 END; ! End of block scan 

$08 

60 + 

604 ! The following test is a special case so that if the last item examined 
605 ! was an array element we just examine the next (or previous) element of 
606 ! the array, even if this is an aggre ate (e.g. a record). In all other 
ope : cases we will step down to an individual component of the aggregate. 
+44 if (. SUB_MODELDBGSL _PHODE FL INK EQLA .PRM_DESCCDBGSL_PRIM_BLINK)) 

ot) (. SUB_NODECDBGS$B_PNODE_FCODE] EQL RSTSK_TYPE_ARRAY) 

big THEN RETURN 1; 

HE 

616 3 ! We have found the composite entry we are going to modify. Strip off 

61 40 ' all subsequent pa mers sub-nodes, and then add new sub_nodes to get 
oi8 e a primary which describes a single data item. 

620 tg WHILE .SUB NODECDBGS} PNODE_FLINK] NEQA .ROOT_ADR DO 

621 rt REMQUET.SUB_NODECDBGS$L_PNODE_FLINK] ,DUMMY); 

° § 28 IF .PRM DESCCOBESV_DNOR TRPREF 3 THEN 

625 48 PRM_DESCCDBGSV_DHDR_TMPREF] = FALSE; 

6 $ 4 PRM_DESCCDBG$V_DHDR_SUBREF] = FALSE; 

6 50 PRM_DESCCDBGSW_PRIM_OFFSETJ = 0; 


———EEe 4 
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; : PRM _DESCCDBGSW_PRIM LENGTH] = 0; 

6 4 COMP_FLAG = FALSE; 

6 § WHILE TRUE DO 

rs BEGIN 

5 5 7 2 LOCAL SYMID, TYPEID, FCODE KIND; 

6 , SELECTONE . $UB_NODECLDBGS6_PNODE_FCODE) OF 

6 i thstsx TYPE _ARRAY): 

2 re oe .COMP_FLAG THEN 

64 764 BEGIN 

4¢ 765 LOCAL S_VECT : REF DBGSPRIM_NODE SUBS; | 

64 166 § VECT = SUB_NODELDBGSA PNARR_SVECTOR); | 

644 76 DECR S$ FROM -SUB_NODELDBG$B_PRARR_DIMCNTJ-1 TO 0 DO 

645 768 Engr vec Te-S.DBGSC_PNSUB_SVACUE3 = .S$_VECTC.$,D8G$L_PNSUB_UBOUND); | 

ers 776 SYMID = 0; 

648 77 KIND = RSTSK_DATA; 

649 17 DBGSSTA_SYMTYPE (. SUB_NODECDBGSL_PNARR_CELLTYPE],FCODE,TYPEID); 

ge? te -_ | 

652 778 CRSTSK_TYPE_RECORD RSTSK_TYPE_VARIANT): | 

ra 776 BEGIN 

654 7 LOCAL N_COMPS S_VECT : REF VECTORC.LONG); 

655 28 F_.SUB-NODECOBGSB_PNODE FCODE) EQL RSTS$K_TYPE_ RECORD 

636 7 THEN BBGSSTA_TYP~RECORD( . SUB_NODECDBGSL~PNODE_TYPEID).N_COMPS,S_VECT. DUMMY) 

65 BEGIN | 

$36 fe | 
| 


! We have a variant set. If the TYPEID field is non-zero this is 
! a@ new variant sub node (added by us on the last pass), and so we 
' need to obtain the current value of the TAG field. A zero-length 
! tag field (or an illegal tag value) cause this entire variant to 
} be ignored. 
: | 
I 


F pita tly = .SUB_NODECDBGS$L_PNODE_TYPEID]) NEQ 0 THEN 


SSNS SSS 


SRLS RUNS 


SESSESERES 


790 

791 LOCAL TAG, MARK, TYPE, CODE 

79 VAL DESC’: REF DBG$VALDESC | 
79 VARTANT : REF RSTSVAR_ENTRY; 

794 MAP TYPEID : REF RSTSENTRY; 


> 


Seosessese 
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REMQUE ( . SUB_NODE SUB NODE) ; 

IF (TAG = <TYPELDCRSTSL_VARTAGPTR]) EQL 0 THEN LEAVE PASS; 
DBGSSTA_SYMNAME (. TAG. SYM-NAME) : 

IF .SYMZNAMECO] EQL 6 THEN LEAVE PASS; 

i We now need to obtain the actual tag value. This is done 
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3 1685 18 DBGSS Vice Binns itt CODE, TYPE) 
31 18 DB NODE (PRM DESC RSTSK DATA,.TAG,.CODE,.TYPE,0); 
31 18 VAL P su6 a gbecsk, y AL UE DEST, VAL_DESCS;: 
31 18 AVAL OE One cetDsetr Pk vAtO £0) 
; i i tat Abs DBG te “BLINK bummy) ; 
: 169 18 If WARTANT = é& ofA ‘jan ANT ~SELECT(. TAG,.TYPEID)) EQL 0 THEN LEAVE PASS; 
3 169 rT. , UB. NODE DD sty pa VAR R-VALID} RUE; 
: 169 16 SUBS wOOd NDEX rs 
: 16 18 7 5UB “NOD BSL _PNO Ope £10] = 0: 
: 1695 18 , SUB “NOD +3 “PNVAR-TAGID]. = .TYPEID astst. yantagered 
: 1696 18 SUB - NOD BeGSiCERVA “NCOMPS]_ = .VARIANTCRST cnt}: 
; 169 1820 7 SUB-NODELDBGSL-PNVAR-COMPLST] = VARIANTCRST 
; 1698 18 f SUB"NODELDBGSL-PNVAR-DSTPTR] = . VARIANT RSist~ VAR" etyisi te 
; 16 i i INSQUE(. SUB NODE, .PRA_DESCCDBGSL_PRIM_BLINKI); 
: 1701 18 N_COMPS = .SUB_NODE[DBG$W_PNVAR_NCOMPS): 
; 1? ¢ Sayect = .SUB_NCDELDBGSL-~PNVAR~COMPLST; 
: 17 18 If .COMP_FLAG THEN S$ mnobetgobu > PNREC_IND 2 = .N_COMPS; 
> 1705 18 SymiD = 7S VECTC. SUB PRREC_INDEX 
: 17 18 DBGSSTA_SYAKIND( i 
: 17 18 IF .KIND EQL RSTSK_VAR ARIAUT. 
: 17 18 THEN 
: 17 1832 6 BEGIN 
+ 1710 1833 6 FCODE = RSTSK TYPE_VARIANT; 
: 1711 1834 6 TYPEID = .SYMID; 
; 1718 1835 6 SYMID = = 
: 171 18 END 
: 1714 18 ELSE 
: Hae 1 ; os DBGSSTA_SYMTYPE(.SYMID,FCODE,TYPEID); 
: 171 1 4 ¥ 
3 : ig : 
171 1 4 COTHER Ise] 
+ 1530 ige$ me 
: 1721 18 4 UB_NODECDBG$V_PNODE EVAL] = = TRUE; 
: 17 : 1845 4 DBeSBUILD <PRIMARY stfbe DEC. -PRM_DESC,. KIND, .SYMID. .FCODE, .TYPEID, 0); 
: 17 1846 4 PRM DES CDBG L_PRIA_BLINK) 
: 17h 1 4 CNP FLAG = DIRECT 
: 17 18 
: 17 $ 18 SUB_NODECDBGS$L_PNODE brooke EQL 0 THEN EXITLOOP; 
: 17 18 DacésTA- A-SYMnAne . SOB_NODELDBGS rPNODE _SYMID),SYM_NAME) ; 
: 7 uf SVM NEQ 0 THEN EXITE 
: 1731 18 
: 17 ; 18 RETURN 
3; 17 18 END; ! End of modify_primary 
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-PSECT DBGSCODE,NOWRT, SHR, PIC,O 
OFFC 00000 MODIFY_PRIMARY: 


.WORD Save R2,R3,R4,R5,R6,R7,RB,RO,R10,R11 : 1466. 
ROVAR LIBSSIGNAL, aii : | 
¢C 3 SUBL as ° P 3 | 
D MOVL PRMD s¢ RO : 1512) 
MOVL RO, DB 6 CURRENT _PRIMARY : 
CMPB (RO), #127 : 1517 
BNEQ $ : 
CMPB (RO), #6 + 1518 
1 BEQL =s«s18 : 
9 CMPB 3s 7(RO), #10 ; 1519) 
i¢ BNEQ 2s 3 
: 1$: BBC #1 4(RO), 3$ + 1520 
1 3: BRW 458 : 
D4 $ CLRL_ ERROR_ST : 1524 
C1 4s ADDL3 #20, PRM_DESC, SUB_NODE : 15 
D 9 MOVL § SUB_NODE f : 
D 5$: MOVL §§ 4(SO0B_NODE), SOB NODE + 1545 
p CMPL § SUB_NODE, ROOT_ADR : 
‘ BNEQ $ : 
3 Bae BRW s$ $ 
£9 6$ BLBC (SUB_NODE), 5$ + 1546 
A 0004 MOVZBL 9(SUB_RODE), RO + 1547 
4 9005 C RO, aT : 1549 
13 0005 BEQL «= 7$ : 
31 00 3 BRW 19$ : 
DO 00058 7s: MOVL #2, ERROR_ STATUS + 1563 
9€ 00058 MOVAB 40(R3), S7VECT + 1564 
9A 0005F MOVZBL 27(SUB NODE), R7 : 1565 
ps 6 CLRL DIMENSTON : 1580 
1 0006 BRW $ 3 
fl 0068 8$ BBC #1, 10(SUB_NODE), 9$ + 1567 
9060 MOVAB <-1(R4), S$ : 1568 
1 BRB 10$ ; 
C 73 9$ SUBL3 DIMENSION, R7, S$ : 1569 
¢ 77 10$:  MULL3 #20, S, RO + 1580 
C1 00078 ADDL3 RO, S_VECT, R6 ; 
D3 7F TSTL DIRECTION : 1571 
1 2 BNEG 13S ; 
OF PUSHAB 12(RO)CS_VECT) : 1580. 
D1 CMPL © (R6), a@iSP)+ : 
\¢ BNEQ 12$ 3 
D CMPL DIMENSION, R? : 1607 | 
iF BNEG 118 : 
p} 9 CHPL 4($UB_NODE) , ROOT_ADR : 1608 | 
9F 0009 PUSHAB 12(RO)CS_VECT) > 1611 
DD 0009C¢ PUS a(SP)+ F 
BD PUSHL DIMENSION : 
00000000' EF 9F OOOA PUSHAB P,AAJ ; 
3 oD PUSHL as ; 
000287AB «BF C+D PUSHL #16580 : 
68 5 FB OOOAE CALLS #5, LIBSSIGNAL ; 
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GLEVEL3 16-Sep-1 1:30: AX-11 Bliss-32 V4.0-74 Page 56. 
iN 13-808- 1382 94:70:88 DEBUG. SRC IDBGLEVEL 3.83 31 . (11) | 
52 06 ac dO MOVL §PRM_DESC, R2 : 
3 Dp 1 PUSH : 
000000006 00 F 1 CALLS #6, DBGSBUILD_PRIMARY_SUBNODE : 
14 AE oF 1A PUSHAB + 1810) 
7E 7A =8F «9A 00210 MOVZBL #122, -(SP) : 
Q DD | PUSHL : 
000000006 0 F CALLS #3, DBGSPRIM_TO_VAL : 
6 AE D A MOVL yAt DESC, RO + 1811) 
4 0 A p MOVL (RO) faG : 
bE F REMQUE @24(R25, DUMMY : 1812 
DD PUSHL MARK + 1813) 
000000006 99 1 FB CALLS #1 DBGSPOP_TEMPHEM : 
1¢ AE D F MOVL TYPEID, R + 1814 
2 DD 43 PUSHL R2 : 
4 DD 0024 PUSHL TAG : 
000000006 00 9 Fe 0247 CALLS #2, DBGSSTA_VARIANT_SELECT : 
D5 0024 TSTL VARIANT : 
03 12 00 2 35$: BNE 6$ : 
FDDF 31 0 BRW 4$ ; 
OA A 10 88 00255 36$: B1SB2 #16, 10(SUB_NODE) + 1815 
18 «OA 01 BO 00259 MOVW #1, 24(SUB_NODE) + 1816 
0c A3 04 00250 CLRL 1e(sue_NODE) + 1817 
ae | 10 A2 00 00 69 MOVL  16(R2)> 28(SUB_NODE) + 1818 
1A OA 06 A 80 99 6 MOVW 4 (VARIANT), 26TSUB_NODE) + 1819 
30 A 08 Ao : 026A MOVAB &8(RO), 32(SUB_NODES ; 1820 
aca 60 DO 00 oF MOVL (VARIANT), 36TSUB_NODE) + 1821 
50 04 AC DO 00273 OVL § PRM_DESC, R + 1822 
8 §«B0 63 OE 00277 INSQUE (SUB NODE), @24(RO) ; 
08 AE 1A AS 3C 0027B 37$: #MOVZWL ¢§(S0B_NODE), N_COMPS : 1824 
04 AE 20 A’ 00 00280 MOV (SUB“NODE). S-VECT + 1825 
05 SA €9 00285 38$: BLBC COMP_FCAG, 39 + 1827 
18 «AS 08 A MY 0288 MOVW N_COMPS, 24(SUB_NODE) ; 
50 18 A3 3C 0028D 39$:  MOVZWL 2%(SUB NODE) RO > 1828 
30 04 BE40 DE 00291 MOVAL aS VECTLRO RO : 
5 FC AO p 0296 MOVL  =-4TRO), SYMI : 
18 AE F 0029A PUSHAB KIND : 1829 
55 DD 00290 PUSHL SYMID : 
000000006 00 02 FB 0029F CALLS #2, DBGSSTA_SYMKIND : 
18 AE D1 0026 CMPL =sCKIND, #11 + 1830 
OC 12 OO2AA BNEQ $ 3 
20 AE 13 00 OO2AC MOVL #19, FCODE + 1833 
1c AE 55 pO 00280 MOVL  SYMID, TYPEID + 1834 
55 «D4 00284 CLRL SYMID + 1835 
OF 11 0 BG BRB 42$ : 1830 
1¢ AE 9F 00288 408 PUSHAB TYPEID : 1838 
24 AE OF 6 BB PUSHAB FCODE ; 
55 DD 0028 PUSHL SYMID ; 
000000006 00 3 EB 6 CO 41$ CALLS #3, DBGSSTA_SYMTYPE : 
OA A i 8 C7? 42$ BISB2 #1. 10(SUB_NODE) > 1844 
E 04 002CB CLRL. 0s = ( §P) : 1845 | 
30 AE DD 002C PUSHL TYPEID ; 
AE DD 0020 PUSHL FCODE : 
55 DD 002D PUSHL SYMID : 
8 AE Dp 02D PUSHL KIND : 
52 4 AC D 08 MOVL  PRM_DESC, R2 ; 
52 DD 002DC PUSHL Re F | 
000000006 00 06 FB O02DE CALLS #6, DBGSBUILD_PRIMARY_SUBNODE : 
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ROUTINE PRIMARY _ORDER(PRIM_1: REF DBGSPRIMARY, PRIM_2: REF DBGSPRIMARY) = 


FUNCTION 
; lee ea a a ee 
INPUTS 
; Se Dm mm er me ee ce me em ey ee ee 
; OUTPUTS 
i ee ee Seer ee a 
BEGIN 
LOCAL 
NODE_1 : REF DBGSPRIM_NODE, 
NODE~2. : REF DBGSPRIM-NODE, 
VALUE_1, 
VALUE _2; 
NODE_1 = .PRIM_1(DBG$L_PRIM_FLINK]; 
NODE-2 = .PRIM~2CDBGSL_~PRIM-FLINKJ; 


WHILE TRUE DO 
BEGIN 


SELECTONE .NODE_1(DBG$B_PNODE_F CODE) OF 
RSTSK TYPE_RECORD ,RSTSK, TYPE_VARIANT): 


IF .NODE_1CDBG$B_PNODE_FCODE] EQL RSTSK_TYPE_VARIANT THEN 
IF .NOBE_1COBGSL_PNVAR_DSTPTR 


THEN STGNAL (DBG$_EXARAN 
€_1(DB 


2 
IF .VALUE_1 LSS” .VALUE_ 
if: VALUE! GTR .VALUE_2 TH 


CRSTSK_TYPE_ARRAY]: 
BEGIN 


] NEQ .NODE_2CDBGS$L_PNVAR_DSTPTRI 


EN RETURN +1: 


SUBS_1 : REF DBGSPRIM_NODE_SUBS, 
SUBS _2 : REF DBGSPRIM_NODE_SUBS; 


IF_.NODE_1(DBG$B_PNARR_SUBCNT] NEQ .NODE_2CDBG$B_PNARR_SUBCNT) 
THEN SIGNAL (DBG$_EXARANGE) ; 


SUBS_1 é 
SUBS-2 = NODE~2 


ct 
ERs 


= NODE. IEDBGSA_PNARR_ SVECTOR}: 
DBGSA~PNARR~SVECTOR): 


NSION FROM 0 TO .NODE_1CDBGSB_PNARR_DIMCNTJ-1 DO 


} 
BGSB_PNARR_DIMCNT] - .DIMENSION - 1 


| GLEVEL3 B A. 1 AX-11 Bliss-32 v4. P 9 
ep- an - fea 
Mitet td 1eageen13be 93:99:88 «HONE UE Bhissaze Vero 285. age 435 
:1 1914 VALU .SUBS_1[.0,DBG$L_PNSUB_SVALUE] = .SU8S_1(.D,D8G$L_PNSUB_LBOUND); 
; 1738 1919 VALU -}: = SUBS oe bbe St PNSUB BrSVALUE) = SUBS -}f: D,DBG$L-PNSUB-LBOUNDJ: 
: 1 1 1g IF .VALUE_1 LSS”. VALUE_2 TREN 
; 1786 13 i Jf: WALUELI GTR .VALUE_2 THEN RETURN +1; 
; 179 1318 END; 
: 1798 19 
: 1799 1921 COTHERWISEI: 
+ 1800 19 : EXITLOOP; 
; ' i 13 ; os 
$1 1925 NODE_1 = .NODE ~}foB6si. PNODE_FLIN NK}; 
71 19 : NODE™2 = {NODE~2CDBGSL ~PNODE-FLINKI:; 
> 1805 19 END 
: 1 19 8 RETURN 6: 
; 180 19 END; ! End of primary_order 
O3FC 00000 PRIMARY_ORDER: | 
«WORD Save R2,R3,R4,R5,R6,R7,RB,RP : 1857) 
59 000000006 00 9€ 00002 MOVAB LIBSSIGNAL , Rd : 
50 04 AC DO 00009 MOVL PRIM 1, R : 1876 
5 14 AO 00 0000D MOVL § 20(RO), NODE_1 : 
5 08 aC D 90011 MOVL PRIM 2. RO : 1877) 
5 14 Ag DO 00015 MOVL g0(RO), NODE_2 : 
50 09 A2 9A 00019 18 MOVZBL (NODE.1), 0 3 1882) 
07 50 91 0001 CMPB RO, # + 1884 
05 13 000 BEQL 2$ F 
13 0 91 000 CMPB =s«RO, «#19 F | 
26 12 000 BNEQ 4$ ; 
13 0 91 00027 28 CMPBsaRO, -#19 + 1886 
10 12 O002A BNEQ 4 : 
24 «AB 24 a2 D1 0002¢ CMPL 6(NODE_1), 36(NODE_2) : 1887 
13 00031 BEQL ¢ F 
00028190 8F DD 00033 PUSHL #164240 : 1888 
69 1 FB 90 9 CALLS inh LBSSEGNA : 
7 18 «OA 3 0 ¢ 3$ MOVZWL 34 (No €_1) NVALUE } + 1889 
56 18 AS 3C 0004 MOVZWL 4 (NODE 2) WALYEW2 : 1890 
56 57 D1 00044 CMPL —‘~VALUE day : 1891 
58 19 00047 BLSS 69S ; 
1 9049 BLEQ 3~=s«13$ > 1892 | 
D1 48 BRB 11$ : 
01 Q 91 0004D 4$: CMPB ss RO, #1 : 1895 | 
6 42 BNEQ 14$ ; 
1f AB 1F ag 9 CPB 31 (NODE_1), 31(NODE_2) ; 1901, 
00028190 BF bd 9 PUSHL #16424 1902 | 
9 1 FB F CALLS #1. yessiges F | 
1 é A2 9€ 5$: MOV 40(R2) > 1904, 
A 3 MOV 40(R3) SuBs a ; 1905 | 
B A2 9A 0006A MOVZBL 27(NODE R $ 1907 | 
CF oF MNEGL #1 MO PRENS ION 3 1915 | 
B BRB ies ; 
0B OA A2 1 €1 00073 68: BBC #1, 10(NODE_1), 7$ ; 1910. 


11 
16-50 -1984 01:30: AX-11 Bliss-32 V4.0-74 P 
1eage8 138s 93:99:88 — FONE UE Skisseze ve 9-285. , age 90 
4 18 A2 9A 00078 MOVZBL 27(NODE_1), R4 : 1911 
ef g Ce 7¢ SUBL2 DIMENSION, R4 : | 
pir Bs | 
54 00 : 7$: MOVL DIMENSION, D t 1912 
4 14 8$: MULL2 #20, R4 + 1914 
6441 OF PUSHAB cRaS Tsp "7 : 
08 A441 PUSHAB 8(R4)LSUBS. 1) : 
57 9E SUBL3. a(SP)+, a(sP)+, VALUE_1 : 
644 094 PUSHAB (Rd) (SUBS ; 1915, 
08 A4 9 PUSHAB 8(R4)LSUBS 2) : 
56 43 5 C 338 SUBL3 a(SP)+, a(SP)+, VALUE_2 3 
D F CMPL vALUE_f, VALUE. + 1916 
4 18 O0A2 BGEO 10 ; 
50 1 CE 98: MNEGL #1, RO : 
4 0007 RET : 
04 3 AB 10$: BLEQ 12% : 1917 
50 1 p OOAA 11$: MOVL #1, RO : 
4 OOOAD RET : 
(1 55 58 F2 000A 128: AOBLSS R8, DIMENSION, 6$ + 190 
3¢ 62 D0 000B2 13$:  MOVL (NODE_1), NODE_1 : 19 
: 20 008 MOVL § (NODE~2). NODE~2 : 19 
FF . 0088 BRW 1$ : 18 
50 D4 000BB 14$: CLRL RO + 192 
04 0008D RET > 192 


; Routine Size: 190 bytes, Routine Base: DBGSCODE + OF21 


igcdeo-190e 01:80:26 YMKGNT Btise=sz we o7es Page, 


; 180 } ROUTINE CHECK TEXT _DESCRIPTOR(VAL_DESC: REF DBGSVALDESC) = 

; i FUNCTION 

; 181 i 1 i 

i 16 : i INPUTS 

71 1g 1 13 

: 181 1938 1 | OUTPUTS 

: 181 1940 1 

a 1343 BEGIN 

71 ; 1948 

ae laa 

; 1825 1946 : 

i 1826 138 BIND VMS_DESC = VAL_DESCCDBGSA_VALUE_VMSDESC]: DBGSSTG_DESC; 

:1 194 

3 1 1329 

; 1830 13 1 IF (.VAL_DESCCDBGSB_VALUE_CLASS] EQL DSC$K_CLASS_UBS) THEN SIGNAL (DBG$_UNALIGNED); 
: 18 ; 1988 IF NUT PROBER(ZREF (0) ,SREF(8) ,.VAL_DESC DBGSL_VALUE_POINTER ) 

: 18 1954 THEN SIGNAL (DBGS$_NOACCESSR, 1. .VAL~DESCLDBGSL ~ VALUE ~POINTER]); 

; 18 5 1986 CHSMOVE (8, . VAL_DESCCDBGSL_VALUE_POINTER], VAL_DESCLDBGSA_VALUE_VMSDESCJ); 
; 18 1958 IF (VMS DESCDSCSB_DTYPE] EQL 0) AND (.VMS_DESCCDSC$B_CLASS) EQL 0) 
51 1960 BEGIN 

; 1840 1961 Wms DESCEDSCSB_pTyPE] = DSCSK_DTYPE_T; 

> 1841 1968 VMS ~DESCCDSC$B-CLASS) = DSCSK~CLASS—S: 

ESP Roe Peek tee 

+ 1864 1965 ‘ 

> 1845 1966 IF (VMS _DESCEDSCSB_CLASS) EQL DSCS$K_CLASS_D) 

; 1846 196 THEN VMS~DESCLDSC$B-CLASS) = DSCSK7CLASS~S; 

:1 8 1369 IF (.VMS_DESCCDSC$B_CLASS) EQL DSC$K_CLASS_VS) 

71 1970 AND (.VMS"DESCCDSCSB-DTYPE) EQL DSCSK~DTYPE-T) 

i] 1 197 THEN VMS~DESCLDSC$B_DTYPE) = DSCSK~DTYPE VT; 

71 ; 1998 If (.vmS_DESCEDSCSB_CLASS NEQ DSC$K_CLASS_VS) 

: 1853 197% AND (.VMS"DESCLDSCS$B~CLASS) NEQ DSCSK~CLASS~S) THEN RETURN FALSE; 
; 3 1976 SELECTONE .VMS_DESCCDSCSB_DTYPE] OF 

; i 3 1978 DSC$K_DTYPE_T) : VMS_DESCCDSC$B_CLASS] = DSCS$K_CLASS_S: 
: 185 19 0 COSC$K_DTYPE_AZ. 

71 1981 DSC$K~DTYPE AC 

; 1861 19 ; DSCSK"DTYPE-VTd: VMS_DESCCDSC$B_CLASS) = DSCSK_CLASS_VS; 
; 19 4 COTHERWISE): RETURN FALSE; 

+ 1865 19 TES; 


18 62 


RETURN TRUE; 
END; 


18 


03 


AX-11 Bliss-32 V4.0-74 
DEBUG. SRC JDBGLEVELS.832;1 


ifcdeo-toge 01:30:36 


! End of routine check_text_descriptor 


OOFC 00000 CHECK _TEXT RD seve’ 


.WOR R2,R3,R4,R5,R6,R7 
00 9 ROVAB 1888] GHAL ‘of? 
; A VL ae 
i$ MOVAB ae “ag? 
1 
omen Hh Cs HoT Tbe 
8% 9 1$: PROBER 50° ae tie Sa etd 
BNE 
18 pp PUSHL 24 (R2) 
7 00028228 : Dp PUSHL #16439 
63 H 3 2s: MOVC a8, i utes (R6) 
02 Ag A MOVAB 
i} ies 
03 As ? STB (R6) 
61 f VB #14, (R1) 
A6 1 nove a. 3(R6) 
39 03 A 3 5 3$ MOVAB 3(R6), RO 
2 60 9 CMPB ss (RO), #2 
0 i} 7 BNEQ 4$ 
60 1 MOVE #1, (RO) 
08 é 91 0005C 4$ cepa 2S s«(RO),, #11 
1 05F BNEQ 5$ 
OE 91 00061 CMPBs«(R}1), #14 
3 006 BNEQ $5 
61 0 MOVE = #37 (RI) 
91 00069 58: CHB (ROS, 
13 0006C EQL é 
01 6 9 00 CMPB 3S s«(ROD, @ 
8 DC BNEQ 9$ 
OE 91 00073 68: CMPBs«(R1), #14 
5 12 00076 BNEQ 7 
60 1 i MOVB #1, (RO) 
D 11 00¢ BRB BS 
25 61 91 0007D 78: CMPBs«(R1), «#37 
‘ 1F 000 BLSSU 9S 
27 1 it C (R1), #39 
7? 1A 00C BGTRU 9 
0 i MOVB #11, (RO) 
p D0BA 88 MOVL #1, °RO 
0 RET 
D4 OOOBE 98: CLRL = RO 


ppougyELS Hgrbeoct9Re 01:40:26 ARNT BLigsaa2 ve. -742 Page, 
04 00090 RET é 
3; Routine Size: 145 bytes, Routine Base: DBGSCODE + OFDF 


ae 


> 2 
eo 


8 


: 


Sess 


dd ed a ad ed dd 
fun-o 


Be Se Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Ge Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Ss Se Se Se Se Se Gs Se Se Ge Gs 


18 
18 
18 
18 
18 
18 
18 
18 
188 
iT. 
18 
18 
18 
18 
188 
188 
188 
18 
18 
18 
18 
18 
18 
18 
18 
18 
19 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


DOOODOOCOOODOOOOOOONO 


Roronoforofory 


AVilwun—OCV0aneuw 


rE-bennt9ee 01:80:26 
ROUTINE FIX_UP_LENGTH(VMS_DESC: REF DBGSSTG_DESC) = 
FUNCTION 


INPUTS 


OUTPUTS 


LOCAL 
SIZE, 
BASE: REF BLOCKC BYTE); 


BASE = .VMS DESCLDSCSA POINTER); 
SELECTONE -0MS_DESCCDSCSB_DTYPE) OF 


COSCSK_DTYPE_yT): 
BEGIN 


N PROBER; 
T PROBER(SREF (0) TREE (2) BASE) 
SIGNAL ( BGS _NOACCESSR, , BASE); 
= ~BASE .0,16,0 Py 


tm] 
J 
wo 
o 
x 


YPE_AC]: 


N PROBER; 
T PROBER(EREF(O) .ZREF(1) ,.BASE) 
SIGNAL (DBG$_NOACCESSR,1, .BASE); 
= BASE > 0 ; 


em 
~m & Cy 


—x7 
gence SREgrse | 


Mn 


y 
z 


YPE_AZJ: 

IN LOCC, PROBER; 

ADDR: 

ME eSNG RER Dgi8ESE 
CcHRE (0) ZREF (2 iD “BASE; , ADDR); 


-ow 


-ozrr"oOcm 
SOM Oc 


COTH }: 


- VMS _DESCCDSC$W_LENGTH); 


vm mower 


ne 
Wy 
um 


TES; 
RETURN .SIZE; 


AX-11 Bligs-32 V4.0-74 
DeeuG. Sc HbBaLEVEL $039; 


i 1989 


3; Routine Size: 


122 bytes, Routine Base: 


308 Q END ELUDOM 


* 
00028228 = BF 
$$ Hy 
see 
tg 
00028228 Bp 

Bs SF 
4 ooh a: 
: 7 
00028228 H dD 
0800 er | cs 
BUG 


idcbeom9ge 01:50:26 yatett outee32 ve.0-742 


! End of routine fix_up_length 


001¢ 00000 vn Leweiee 


Sead =3 
Som 


DBGSCODE + 1070 


-EXTRN 


» #2, (BASE) 


64392 
IBSSIGNAL 
SE), SIZE 


Pe. 


#38 


o 


eOUs— 
oa 
no & 
mr ue 
Oo 
°° ™ 
non 
bat ba 
Be 
, and 


. #39 

+t #4, (BASE) 
BASE 

a 


OD I- Bee 


uw 
coos 


#164392 
40; be0eB. CBA 
ASE. ADDR, SI 


(RO), size 
SIZE, R 


LIBSSIGNAL 


Pam 8S 


Pe Se Se Se Se Se Se Ge Se Se Ge Be Se Se Ge Ge Se Ge Be Be Be Se Se Fe Be Be Se Se Se Se Se Se Se Be Se Be Se Se Se 


eee 3 


° 
. 
” 
o 
. 
o 
° 
o 
. 
° 
° 
° 
. 
o 


Name 
DBGSOWN 


DBcsPLit 


File 


ea 


~$555$0uas8: 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:D0BGLEVEL3/0BJ=0BJ$:DBGLEVEL3 MSRC$:DBGLEVEL3/UPDATE=(ENH$:DBGLEVEL3) 


Size: 

le Oe 

Fi eeseeey nt fin: 
a 


Memor : 
foneiakton C 


PSECT SUMMARY 


Library Statistics 


mbol 
Total Loaded 


SYSLIBILI 32 18619 
Beis sete nuter F $32: 1 1538 
DEBUG.0BJ De TRECRDS. (32:1 


peaue.opyzowense.82:1 HBR 


COMMAND QUALIFIERS 


aritin + 78 data bytes 
3:41 
171 
in: 1491 
362 pages 
omplete 


* 
190 


Heseect94e QUSH9:G8  WUGNE SLSSSRR WZ, 


Attributes 


eat es 


Percent 


3 
; 


Pre 


. ON, PIC,ALIGN(2) 
. ON, PIC,ALIGN(O) 
° : t CON, PIC, ALIGN(O) 


¢ 
é 


ke a 


Pages Processing 
Mapped Time 


eR 


nad 3] 
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